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ABSTRACT 


Current  technologies  in  the  fields  of  t ele'^ornunications 
and  corrputer  processing  are  Ijecoming  increasingly  integrated 
to  the  extent  that  "distributed"  compiiter  networks  are 
assuming  key  roles  in  communications.  The  complex 
computerized  systems  necessary  to  support  modern  military 
command  and  control  requirements  are  expensive.  Designing 
such  systems  "by  trial  and  error  is  not  feasiole,  yet  no 
other  viable  alternatives  exist.  This  thesis  offers  an 
original  methodology  for  evaluating  the  predicted 
performance  of  military  automated  systems.  Using  Petri-Nets 
as  a  model ing'  tool ,  computer  simulations  with  color  graphics 
output  are  performed  to  demonstrate  the  feasibilty  of  this 
approach  as  a  systems  design  tool. 


TABLE  C^  CONTENTS 

I  .    INTPoruCTION 9 

II.  NYTWC^!CS:  (MOTIVATION,  TAXONOMY  AMD  PEFFORrAMC? 14 

A.   INTRODUCTION 14 

"B.   MOTIVATION  ?0R  TEE  ANALYSIS  0^  PERFORMANCE 14 

C.  TAXONOMY 15 

1.  Networks 16 

2.  Computer  Communication  Networks 16 

3.  Further  Readinr IS 

D.  PERFORMANCE  PRT^DICTION  ANT  MODELING 18 

F.   SUMMARY 21 

III.  MILITARY  APPLICATIONS  OF  DISTFIPUTED  SYSTEM 

TECHNOLOGY 22 

A.   INTRODUCTION 22 

E.  PACKET  SWITCHING 22 

C.  THE  ARPANET 25 

D.  MILITARY  APPLICATIONS 27 

E.  TH^  ALOHA  SYSTEM 2S 

F.  PACKET  RADIO  INTRODUCTION 29 

G.  CHANNEL  ACCESS  SCHEMES 31 

1.  Category  I c2 

2.  Category  II 36 

3.  Category  III 37 

H.   CURRENT  PROGRAMS 3S 

1.   PLRS/JTIDS  Hybrid 39 


2.   The  San  Francisco  Bay  Experimental 

Packet  Padic  Metwork 39 

?.   The  Fort  Eragg  Tesfbed 41 

I.   T'U'"TT?.F  IMPLICATIONS 4.3 

1.  Chain  of  Command 44 

2.  Network  Management 45 

3.  How  Much  Redundancy? 46 

4.  Propagation  Loss  Due  to  Figher  Frequen'^y 46 

5.  Management  Information  Systems 4^^ 

6.  Interoperability 4'' 

'?.      Voice   vs.   lata.   Circuits 4? 

8.      System   Cost 48 

IV.  KH    INTP.CDUCTION    TO    PETRI-NETS 49 

A.  INTPOrnCTION 49 

B.  "ISTORY 49 

C.  POV  ^FTPI-NFTS  WORT 51 

D.  a  SIMPLE  EXAMPLE 54 

E.  ALVANTA.GES  /ND  LISAEVANTACES 54 

V.  PETRI-NET  SIMULATION  OF  COMFU'^E^  COMMUNICATION 

NETWORKS 60 

A.   INTRODUCTION t? 

"B.   TYPES  OF  NODES 61 

C.  A  SIMPLE  APPLICATION  EXAMPLE P2 

D.  RANDOMNESS  IN  PETRI-NETS 64 

E.  MEMORY  STORAGE  REPRESENTATION c^ 

F.  SYSTT^M  LOAL  AVERAGE 67 

G.  TIME  REPRESENTATION 66 


VI.  THF    EXPTIRIMENT 71 

A.  rESCRIPTION 71 

B.  RESULTS 73 

VII.  REC^M^'ENC^TIO^I«^  AND  CONCIUSIOMS 77 

A.  ^FCOr^f^ENDATIONS 77 

B.  CONCLUSIONS 50 

APPENDIX   A    -   TJSER    INSTRUCTIONS    FOR    PETRI-NET    SOET'tARE £2 

A.       INTRODUCTION 62 

3.       TEE    INPUT    TILE £2 

1.  Places £4 

2.  Transitions £5 

3.  Initial  ^arVinfr £6 

4.  Execution £7 

C  .   TFE  OUTPUT  FILES c^ 

D.  US^R  OPTIONS 3« 

1.  Choice    cf    Programs ££ 

2.  User    Cuestiors    and   Responses S8 

3.  The   Highlighting   Feature 91 

E.  UNIQUE    INSTRUCTIONS    FOR    VERSION    3 91 

APPENDIX   3    -    RUN^^3 P'^ 

APPENDIX  C  -  RUN?3A 99 

APPENDIX  r  -  RUN03E 99 

APPENDIX  ^    -   RUNf3C 10<^ 

APPENDIX  F  -  ■OUN20 lc.'2 

APPENDIX  '^  -  TRESIS  ^ILES 12« 

COMPUTER  PROGRAM  -  "simulator" 139 

COM.PUT^P  PROC-RAM  -  "t rans^raT)h" 119 


COMPUTE?    ?^.OG?AK   -      lin^f^raDh    1-^7 

LIST    OY    pyT?VT5  5«j  r;ys 174 

INITIAL  DISTRIBUTION  LIST 175 


8 


I.   IMTH0rTJCTlO[\ 


As  rilitary  planners  look  forwe'^d  to  th?  dpsign  of 
futur°  corimand,  control,  and  corrmunica  ti  ons  (  C7  )  systems, 
several  key  factors  should  be  at  the  forefront  of  their 
thinking.  First  of  all,  it  is  readily  apparent  that  there 
has  "been  a  proliferation  of  co.mputer  resources  for  military 
applications.  "Even  the  mcst  "tactical"  cf  systems   today   is 


becoming  a   sizeable   collection 


onputers,  databases, 


sensors  and  information-handling  eauipmeit. 

Secondly,    one   can    sense    that    the    fields 


of 


telecommunications  and  computer  science  are  becoming 
increasingly  integrated.  Although  these  once-separate 
disciplines  have  v^ry  di-^ferent  histories  and  traditions, 
they  are  experiencing  a  t echnolOci:ical  convergence  which  is 
having  far-reaching  implications  for  both  the  military  and 
civilian  societies,  "'oday  the  concepts  and  ter^hniques  of 
computer  processing  have  been  integrated  with  communications 
to  the  ertent  that  both  fields  share  the  same  kind  of  Ics-ic, 
storage,  switching  and  transmission.  Because  information 
handling  systems  now  employ  telei'O'^munica  ti  ons  and 
information  in  such  an  intimate  mixture,  it  is  difficult  to 
distinguish  what  in  the  systemj  is  computer  processing  and 
what  is  communications. 

A   third  key  factor  should  be  a  realization  that  certain 
concents  of  comnuter  communication  networks  and  distributed 


system  architectures  offer  advantages  for  rrilitary 
applications  due  to  the  i^otential  for  survivability  and  lack 
of  centralization. 

Corrputer  networks  are  often  created  spontaneously  by 
corblring  computers  and  corrunicati ons .  The  growth  of 
corrputer  networks  is  one  of  the  significant  cutcorres  of  the 
converi^ence  of  the  two  disciplines.  An  extensive  array  of 
corputing'  resources  can  "be  connected  over  a  wide  geographic 
area  via  tel ecc^Tuni cati ons  channels.  The  potential 
architectures  for  such  networks  are  lirritless  when  one 
considers  the  variety  of  hardware,  software,  protocols  and 
geo5-raphi^  distributions  that  might  comprise  the  system. 

Another  key  factor  is  that  system  planners  reed  to  focus 
their  efforts  upon  total  system  integration.  Tactical 
automated  systems  tend  to  be  developed  individually  to  meet 
unicue  mission  requirements.  For  instan'^e,  separate  systems 
are  typically  justified  and  developed  for  missions  of  fire 
control,  air  defense,  intelligence,  personnel  management  and 
logistics,  etc.  V/hile  these  separate  systems  may  peform 
satisfactorily  alone,  there  is  difficulty  in  providing  a 
suitable  management  information  system  by  which  the  overall 
commander  or  decision-maker  can  have  ac':"e5S  to  the 
information  in  all  these  separate  systems  in  a  format  that 
is  easy  to  understand  and  use. 

Another  important  consideration  is  that  the 
proliferation  of  automated  systems  places  a  severe  burden 
UDon    the    communications   eauirment   that   ]inks   systems 
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together.  There  is  a  tendency  for  automated  systems  tc  be 
seTjarately  developed  with  insufficient  emphasis  pls'^ed  uDcn 
the  communications  equipment  that  v/ill  transmit  the 
information.  In  other  words,  the  sensors  and  pro'^essors  of  a 
system  yay  work  splendidly,  but  Dlarners  must  not  take  it 
for  granted  that  the  data  will  arrive  at  the  correct 
destination  in  an  error-free  condition. 

The  communications  equipment  and  channelization  that 
carry  the  information  must  be  as  carefully  ergineered  as  the 
other  components  of  the  system.  In  addition,  the  data  on  the 
cha^.nel  "-ust  be  in  a  format  that  is  compatible  wth  other 
systems.  The  U.S.  Army  is  coming  t'^  g^ips  with  the  fact  that 
if  the  some  50  tactical  automated  systems  on  the  drawing 
boards  were  to  be  fielded  for  use  at  the  corps  level,  there 
exists  no  corrmunica  tions  equipment  capable  of  carrying  the 
vast  volume  of  information  these  systems  would  generate.  In 
addition,  when  the  communicat  iors  enuipme^.t  "-ust  operate 
with  specifications  of  transmission  security,  jam 
resistance,  and  low  probability  of  intercept  in  a  severe 
electronic  warfare  threat  environment,  the  design 
difficulties  are  considerably  magnified. 

Lastly,  military  planners  should  be  concerned  about 
bein^  able  to  accurately  predict  system  perf orma nee.  An 
accurate  predictor  of  system  performance  is  needed  for  use 
by  those  in  procurement  duties  to  ensure  that  performance 
specif icatiors  given  by  contractors  will  in  fact  prove  to  be 
true  wher   a   new   system  is  fielded.  "Managers  of  currently 
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operational  systems  also  require  this  service,  '^hey  are 
asY.inf  ir.  the  course  of  daily  duties  such  Questions  as:  Vhat 
would  'be  the  effect  of  increased  buffer  space  at  this  busy 
location?  V'hat  would  be  the  impact  or.  total  system 
perforT5r.ce  if  a  particular  node  or  link  in  the  network  is 
removed?  Such  a  desire  for  prediction  of  system  -cerformance 
has  created  5:reat  emphasis  upon  modeling  technic.ues  and 
computer  simulations  of  systems  to  answer  these  questions. 

All  of  the  above  factors  have  ^iven  impetus  to  this 
thesis.  A  particular  modeling  tool  which  addresses  t^ese 
needs  is  described  (the  Petri-Net)  and  is  implemented  to 
facilitate  communications  network  modeling. 

The  paper  presents  three  primary  points  of  original 
worl^: 

1.  It  is  demonstrated  that  automated  networks  ''an  be 
meaningfully  modeled  with  the  use  of  Petri-Mets. 

2.  It  is  shown  that  Petri-Met  models  of  networks  can  be 
adapted  for  effective  computer  execution  and  display  O'^  a 
color  graphics  terminal.  Simulations  which  incorporate 
graTDhics  output  are  more  easily  understood  and  have 
considerahle  educational  value. 

2.  The  results  of  this  research  indicate  that  the 
implementation  of  such  a  modeling  technique  in  a  production 
environment  as  a  predictor  of  system  performance  is 
f°asihle. 

The  above  3  points,  although  successfully   implemented 
in   the  Naval  Postgraduate  School  C3  laboratory,  reijresent  a 
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new  area  of  research  in  a  preliminary  stage  of  developrent. 
Future  irvestig-a  ti  on  is  required  to  expand  and  validate  this 

approach . 
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II.   '^lETlv'^HKS:  *^0?IVATIO\' ,  TA'^CNC'^Y  ANI'  ?"!'!TCR'^-- N'C"F! 

A.   IMTRCEUCTION 

Predicting  the  perf orrrance  of  an  autcmat'=l  networ:^  '^an 
indicate  a  reasure  cf  a  system's  effectiveness  and 
ef  f  iciency .  [3]  Evaluating  a  system's  perfornance  is  a 
complex  task.  This  task  often  requires  modeling.  Many 
performance  modif i'^atiors  are  more  suita'bly  performed  on 
models  than  tne  actual  system,  "because  "trial  and  error" 
Droduction  is  not  feasible  economically.  This  chapter 
discusses  the  motivations  for  network  design  and  the 
practicalities  of  predicting  network  performance. 

E.   f^OTIVATION  FOR  TH^  ANALYSIS  OF  PFRFOR^*NCE 

The  magnitude  of  information  processing  in  the  ^^rited 
States  is  unprecedented  and  still  growing.  Computer 
processing  and  communications  make  a  major  portic^  of 
currently  accessahle  information  available  to  federal 
agencies  and  commerical  "businesses.  As  the  country  is 
"becoming  increasingly  dependent  on  the  need  for  information, 
the  existence  of  relia"ble,  effective  computer  communication 
networks   is   essertial   to   transport   computer-processed 

information. 

With  the  added  cost  of  energy,  the  attractiveness  of 
moving  resources  to  the  user  via  computer  communications 
networks  is  apparent. [5]  The  performance  evaluation  of  these 
networks  is,  therefore,  a  measure  of  the  system's  a"bility  to 
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rreet  user  requirements. 

Adequate  perforrrance  evaluation  tools  currently  do  not 
exist.  Therefore,  deci  si  on-nakers  responsible  for-  selecting 
new  systems  usually  rely  on  the  designer's  claims  as  to 
performance,  and  procure  systems  accordingly. 

"Both  the  civilian  and  military  communities  place  very 
heavy  demands  on  communication's  facilities  durin,s  crisis 
situations.  Throughout  history  existing  systems  have  often 
not  been  sufficient  to  carry  such  communications  traffic. 
[61 

The  civilian  community  shares  these  pro'^lems.  "^any 
networks  are  engineered  to  carry  mean  traffic  loads  and  are 
not  planned  for  crisis  con tigencies .  The  ccmmerical 
telephone  network,  for  instance,  is  inundated  with  traffic 
Christmas  and  Mother's  lay,  severely  degrading  system 
performance.  The  disru-otive  affects  of  a  natio^^al  emergency 
on  all  types  of  automated  networks  can  only  be  imagined. 

In  the  Defense  Communications  Agency  (DCA),  work  is 
presently  under  way  to  develop  tools  for  evaluating  the 
performance  of  nlanned  computer  communication  networks,  ""his 
effort  is  underway  because  development  of  these  expensive 
systems  by  "trial  and  error"  can  no  longer  be  afforded.  Tne 
necessity  to  have  confidence  in  the  system's  ability  tc  meet 
design  specifications  before  production  is  essential,  since 
normal  federal  procurement  cycles  stretch  cut  over  eight  to 
ten  years.  This  confidence  can  be  insured  by  utilizing 
effective  Derformance  evaluation  tools. 
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C.   TAXCNOVY 

\  ^T°dt  deal  of  ambiguity  exists  in  the  jari?on  of  the 
iietwcr':?:ir.p  field.  [7]  Therefore,  several  reciirrins  network 
descriptions  ere  defined  in  tnis  ■^heoter  to  •provide  a 
consistent  vo^atulary.  Using  thes=  definitions,  network 
issues  car.   then  be  succinctly  conveyed  to  the  reader. 

1 .  N'=>tworks 

The  terrr,  "network"  conveys  the  concept  of 
individualized  cells  and  a  degree  of  i nterconnect ivity .  A 
network  exists  for  the  purpose  of  achieving  a  desired 
objective.  The  individual  characteristics  of  networks  are 
related  to  network  topology,  hardware  configurations,  and 
software  control  features  designed  to  accorrr^odate  the  user's 
requirements  . 

2.  Corrnuter    Comrunicati  on    Networks 

A  '  cc^puter  corrnunica t ion  network"  is  a  system 
consisting:  of  one  or  more  computers  and  terminals,  and  a 
communications  subsystem  which  connects  them.  [7]  The 
prif^ary  purpose  of  this  network  is  to  facilitate  the 
efficient  flow  of  data,  and  provide  the  required  su-oportive 
"orocessirg  functions.  The  communications  subsystem  consists 
of  transmission  facilities  and  associated  ccmmur ica ticns 
processors.  Commu'^i  cat  1  ons  processors  are  computers 
dedicated  to  exclusively  handling  communi'^ati  ons  tasks. 

The  classification  o^  computer  corrnunica t i on 
networks  often  centers  around  the  network  topology,  network 
connectivity,    switching   protocol   and   the  degree   of 
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ipple'^entati  on  of  systerr-wi^.e  control  ff=atures. 

The  term  "centralized  computer  ccrmunicat ion 
network-"  is  ^isel  to  define  a  network  that  possesses  a  hi?h 
degree  of  centralized  funrticns.  /nether  networic 
classification,  "distributed  svsterrs",  is  used  to  describe  a 
low  degree  of  centralized  functions. 

The  differences  "between  centralized  computer 
communication  networks  and  distributed  systems  reveal 
therrselves  in  the  degree  to  which  system  functions  are 
distributed.  There  are  no  concise  metrics  which  delineate 
the  exact  classification  of  a  networ'c.  The  interpretation  is 
subjective . 

Further  elaboration  on  specific  advantages  and 
disadvantages  of  the  distribution  of  system  functions  and 
the  definition  of  distributable  -f'uncticns  '^an  be  found  in 
CYSPER  [6]  . 

Centralized  computer  networks  essentially  formalize 
the  system  control  structure  into  pre-selected  system 
control  nodes.  These  nodes  contain  what  is  often  referred  to 
as  the  network  control  programs  ("»1CP).  The  NCP  can  control 
the  processing,  database  management  and  communications 
management  functions.  This  type  of  networking 
characteristically  has  a  low  degree  of  fault  tolerance 
because  network  direction  eminates  from  only  one  node 
imposing  network  restrictions  should  this  node  be  damaged. 

Distributed  systems,  however,  are  typified  by  the 
distribution  of  system  management   functions.   Although   no 
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pure  distri"buted  systems  exist  in  reality,  the  terr  is 
widely  used  to  indicate  a  hi^h  decree  of  distributed 
functions  within  a  network.  This  ""peer'"  structure  acts  in  a 
cooT)«rc>  ti  ve  sense.  Pouting  a  l^^ori  thrrs  ,  for  exarrnle,  rely  on 
infornaticn  that  is  "cooperatively"  passed  from  node  to 
neighboring  node,  thereby  deriving  irf  orrati  O'^ ,  not  on  a 
global  basis  but  on  a  localized  one.  Distributed  systems 
have  a  high  degree  of  survivability  and  are,  therefore,  Tore 
fault  tolerant  than  centralized  computer  communication 
networks.  The  advantage  of  distributed  systems  is,  however, 
partially  offset  by  the  increased  "overhead"  necessary  to 
coordinate  svstem  functions. 
3.   Further  Reading 

Numerous  terms  used  in  networking  contribute  to 
confusion  due  to  the  lack  of  an  industry-wide  standardized 
taxonomy.  The  intent  here  was  to  define  certain  keywords 
used  throughout  this  thesis.  Further  clarification  of 
system's  taxonomy,  although  important,  is  not  discussed. 
Taxonomical  studies  recommended  are  [2],  [9]  and  [23]. 

D.   PERFORrANCF  PRZDTCTION  AND  M,CDELIN& 

"Performance"  is  defined  as  the  degree  to  which  the 
system  fulfills  user  requirements.  In  terms  of  networks, 
these  measures  are  often  determined  by  the  network's 
workload  capacity  or  throughput  in  the  sense  that  the 
network  can  first  perform  the  desired  functions  and  secondly 
perform  with  a  degree  of  timeliness.  [4] 
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The  ideal  means  of  neasuririi?  network  neforirance  is  to 
extract  data  from  the  system  its°lf.  The  rollecticn  of  data 
from  existing  networks  is  often  difficult.  The  performance 
testing  of  networks  under  heavy  traffic  loads  or  those 
operatin.?  in  a  degraded  mode  is  a  sensitive  matter,  because 
interference  of  the  monitoring  equipment  '^an  not  be 
tolerated.  Networks  in  design  phases,  of  course,  can  not  be 
measured  and  require  alternative  assessment  methods. 

The  modeling  of  existing  and  planned  networks  has  be^'ome 
an  important  component  of  performance  evaluation.  As  an 
added  benefit,  modelin,?  also  facilitates  the  understanding 
of  a  system's  design  and  interrelationships. 

The  modeling  process  can  follow  one  of  several  different 
techniques  or  a  combination  thereof.  The  primary  techniques 
are:  1)  mathematical  modeling  and  2)  simulation. 

f^athema  tical  modeling  employs  theories  of  queuing  and 
flow  by  describing  certain  network  characteristics  in  sets 
of  equations.  The  process  is,  however,  complex  and  often 
assumes  away  critical  parameters.  The  primary  disadvantage 
with  mathematical  modeling  appears  to  be  just  this  problem 
of  assumptions.  Too  many  assumDtions  impose  an  unacceptable 
degree  of  abstraction.  Although  the  validity  of  mathematical 
modeling  techniques  has  been  confirmed  [4] .  the  methodology 
is  often  understandable  only  by  the  modeler. 

Simulation,  the  second  alternative,  leads  the  modeler  to 
numerous  techniques.  A  simulation  is  an  abstraction  of 
concepts  pertinent  to  the  problem  being   studied,   and   upon 
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which  the  modeler  can  apply  varying  experimental  variables. 
The  rodel  simulates  only  these  features  the  modeler  feels 
are  relevent  to  the  problem.  Herein  lies  the  critical  danger 
of  simulation.  The  danger  may  best  be  expressed  by  the 
question,  Does  the  model  bear  relevancy  to  the  real  i^roblem? 
[10] 

The  major  problem  of  simulation,  as  well  as  analytical 
models,  is  therefore  the  validation  of  the  '^odel.  r^any 
simulation  experts  talk  in  terms  of  performance  reliability 
factors  but  fail  to  state  that  these  factors  ray  be  just 
derived  from  outputs  of  a  model,  and  the  closeness  of  the 
model  to  reality  may  or  may  not  be  substantiated. 

The  modeling:  process  itself  consists  of  the  construction 
of  the  model,  followed  by  the  validation  of  the  model,  and 
finally  modifications  to  the  model  based  on  results  of  the 
validation  process. 

Once  the  model  has  been  defined,  simulations  are  run 
with  the  model  to  evaluate  network  behavior.  The  problem  is 
to  predict  peformance  of  real  networks  by  evaluating 
behavior  on  the  network  models.  The  simulations  then  provide 
a  means  by  which  network  design  deficiencies  can  be 
identified  and  corrected. 

Another  issue  in  simulation  analysis  is  the  area  of 
overdesign.  Simulations  should  indicate  those  systems 
components  that  do  not  add  to  the  capabilities  of  the 
network.  This  analysis  can  measure  the  device  utilizatic^  of 
SDecific  connonents  within  the  network. 
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The  key  measurerent  of  a  computer  commyni cati on  network 
is  the  network's  workload  capacity  or  throughput.  ThroughiDUt 
is  generally  measured  in  nurrber  of  message  units  per  time 
period,  and  provides  a  measure  of  effectiveness  and 
efficiency  of  the  system.  The  parameters  involved  in 
throughput  are:  1)  network  configuration  (topology),  2) 
network  control  algorithms,  and  3)  network  reliability. 

E.   SUMMARY 

A  solution  to  predicting  performance  in  systems  where 
the  collection  of  data  is  difficult  or  the  system  is  in 
design  stages,  is  to  build  a  nodel  of  the  syster.  The  model 
could  then  be  tested  over  the  entire  sprectrum  of 
performance  specifications. 

The  goal  of  performance  evaluation  is  the  prediction  of 
the  degree  to  which  the  system  fulfills  the  intended 
objectives.  The  major  concern  in  computer  communication 
networks  is  the  degree  to  which  the  network  can  nerfcrn  the 
task  and  the  degree  of  efficiency  with  which  the  task  is 
completed.  A  by-product  of  the  evaluation  should  be  the 
identification  of  areas  of  over  and  under-design.  Cnce 
design  failures  have  been  identified,  design  tradeoff 
decisions  can  then  be  made.  This  process  of  perforrrance 
analysis  is  aimed  at  optimizing  the  existing  or  pla'^ned 
network's  performance  and  ensuring  that  the  performance 
meets  the  contracted  user  recuiremen ts. 
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III.    MILITA.pt    4.PPLICATICNS    OF   DISTRI3UT"^D    ?YSTI"r^:    T7CHNCLCSY 

A.  IMTROruCTIOM 

This  chapter  discusses  current  nilitary  pro^rars  and 
research  efforts  that  are  applyir.s  the  ronrevl  of  autorrated 
networks  to  tactical  missions.  It  is  written  to  s-ive  the 
reader  sore  hackground  inforrratior  on  progrars  and 
terminol'^gy.  With  this  "background,  the  applicability  of  the 
simulations  described  in  later  chapters  will  he  clearer. 

B.  PACKET  SWITCHING 

The  transmission  of  computer  to  corputer  digital 
messages  has  had  significant  impart  on  ccTimunications 
switching  techniques.  In  fact,  the  concept  of  packet 
switching  was  invented  to  a  large  extent  he'^ause  of  the 
uniaue  recuireiren  ts  of  cc^puter  based  systems.  Packet 
switching  was  designed  as  an  alternative  to  circuit 
switching . 

The  circuit  switching  technioue  of  older  cojTunica ti ons 
systems  is  a  method  of  establishing  a  route  for 
communications  traffic  whereby  a  complete  link  between  the 
calling  and  receiving  station  is  set  up  and  maintained 
exclusively  for  the  exchange  of  those  two  stations.  The 
connection  is  maintained  until  one  of  the  stations  breaks 
off  transmission  or  re'-eption.  A  technique  such  as  this 
tends  to  be  wasteful  in  computer  communications  because 
computer  communications  are  typically    bursty   in   nature; 
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that  i5»  the  nessa^es  are  very  short  in  duration  and  require 
fast  responses. 

Packet  switching  is  designed  to  make  efficient  use  of  a 
corrTuni cations  channel  when  tne  traffic  is  bursty.  fill  1"^ 
this  technique  messages  are  divided  Into  discrete  'Dackets." 
A.  packet  is  a  hlock  of  information  containing  a  fixed  number 
of  hits.  Each  packet  contains  the  text  of  the  message  plus  a 
control  header.  The  header  contains  enough  information  (for 
example,  source,  destination,  routine  Dlan,  message  sequence 
numher,  etc.)  to  guarantee  the  packet  will  arrive  at  the 
proper  destination.  In  addition,  there  will  usually  "be  some 
checks  on  each  such  block,  so  that  &r.j  switch  through  which 
the  packet  passes  may  exercise  some  degree  of  error  control. 

figure  1.  shows  a  typical  composition  of  a  packet  of 
information  hits.  This  particular  example  is  taken  from  a 
packet  radio  network.  [16] 

In  a  packp't-swi  tchi  ng  network,  the  packet  represents  the 
fundamental  unit  of  transportation.  One  messa,?e  nay  be 
hroken  into  several  packets  and  each  packet  may  be 
independently  routed  to  its  final  destination.  Of  course,  at 
the  destination  the  packets  must  be  re-assembled  in  the 
correct  order  to  reconstruct  the  original  message. 

Because  packets  of  the  same  messare  can  be  se^t  by 
different  routes,  congestion  on  the  network  car.  be 
decreased.  Fach  packet  contains  its  own  control  information 
in  the  header,  and  there  are  no  lengthy  connection  and 
disconnect  times  as  in  the  case  of  circuit  switched  systems. 
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FIGURE  1    FORMAT  OF  PRNET  PACKET  (PRCAP3) 
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It  should  "be  noted  that  messages  which  are  "broken  into 
packets  are  only  meenine-ful  within  the  network,  '.vhen  packets 
are  passed  thrcu^-h  gateways  in^c  ether  nacket-swi  tched 
networks,    a    new    intra-net    level    of  protocol   is    required. 

C.      THE    APPAMST 

Perhaps  the  "best  known  exarrple  in  tne  rilitary  of  a 
lar^e  scale  distributed  system  is  the  AHPANET.  This  research 
effort  has  "been  sponsored  oy  the  defense  Departrre'^ t 's 
Advanced  Pesearch  Projects  Agency  CAPPA).  The  ARPA^IET  is  a 
non-secure,  packet-switched,  distri"buted  corruter 
comrruni  ca  t  ion  network  which  links  together  the  ccr^puting 
facilities  at  universities  and  n?ilitary  installations  across 
the  continental  United  States  and  reaches  overseas  to  London 
and  Hawaii  . 

The  justification  and  advantages  of  a  network  such  as 
the  APPAN5T  are  sujirrari zed  in  the  following  ex'^erpts  frcn^ 
the  text  Corr-pu t er-Corr'^unicat  ion  N  etwo rks  written  in  1973: 
[11 

"Cne  of  the  rost  successful  aspects  of  the  experirrents 
in  the  use  of  time-shared  computer  systems  conducted  during 
the  past  decade  was  the  ability  to  share  computing  resources 
amon^  all  the  users  of  the  system.  Controlled  sharing  of 
data  and  software,  as  well  as  the  sharing  of  the 
time-sharing  system  hardware,  has  led  to  much  higher 
programming  productivity  and  "better  overall  utilization  of 
the  computing  and  user  resources." 
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F^'er.  in  these  tine-sharing  systems,  however,  the  systerr, 
capacity  was  simply  not  lar^e  enough  to  T)erforr  all  the 
storage  reouirenents  and  ccrriputing  potential  that  a  de'^ision 
maker  required.  There  was  the  la-rk:  of  a  lar^e  enough 
corrrrunity  (critical  rass  phenorr^enc)  in  a  single  a rp ligation 
area.  Although  it  is  possible  to  physically  transfer 
prograTS  or  data  fror  one  coTrrunity  to  another,  this  causes 
restrictions  in  language  standards  and  hardware  systems. 

To  quote  further:  "a  viable  alternative  to  program 
transferability,  while  permitting  full  resource  ^harin^,  is 
to  provide  a  communications  system  that  will  permit  users  to 
access  re^iote  programs  or  data  as  if  they  were  lo-^al  users 
to  that  system.  In  addition,  it  should  he  possible  for  a 
user  to  create  a  program  on  his  local  machine  that  coull 
make  use  of  existin<?  programs  in  the  network  as  if  they  were 
available  on  his  lo^al  machine,  father  than  tryi'"^  to  move 
the  programs  from  machine  to  machine,  the  network  would 
allow  the  user  or  his  program  to  communicate  with  a  machine 
on  which  the  program  already  executes.  If  encue-h  machines 
can  be  connected  into  such  a  network,  the  total  community  in 
any  particular  application  area  would  be  sufficiently  large 
enough  to  reach  critical  mass."  [l"" 

This,  essentially,  is  the  rationale  for  military 
applications  of  tne  ARPANET  research,  both  on  the  strategic 
and  tact  i'^al  level . 
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D.   [MILITARY  APPLICATIONS 

We  have  spoken  in  a  previous  chapter  of  the  tremenlcjs 
growth  of  automatea  data  systerrs.  Tactical  d^ta  systers,  be 
they  for  the  purpose  of  intellip.'»nce ,  -nescnnel  rar.agerren  t , 
fire  direction,  loi^istics,  or  corrrend  ar:d  control,  tend  to 
be  engineered  and  developed  separately  without  the 
consideration  of  total  military  r^ission.  Nevertheless,  the 
"battlefield  commander  cannot  naV'e  wise  decisiors  based  on 
input  from  just  one  of  these  systems.  There  is  a  pood  deal 
of  interplay  between  all  of  these  functional  areas,  and  all 
must  be  considered. 

One  single  tactical  corfouter  i^  a  single  command  Dost 
could  not  be  built  to  store  and  update  all  of  the  data 
represented  in  the  combir>ed  S7Stems.  And  if  it  could,  such 
centralization  would  be  unwise.  The  answer  seems  to  be  a 
distributed  .corn-outer  network  built  to  interconnect  and  snare 
the  resources  of  the  individual  systems.  This  means 
overlaying  an  ARP*..MET-like  architecture  onto  a  series  of 
distributed  processors  on  the  battlefield. 

The  APPANTT  distributed  architecture  fi-ecrraphically 
separates  data  bases  and  computing  resources.  This 
distribution  tends  to  decentralize  a  network,  moving  fro'-  a 
traditional  hierarchical  configuration  to  a  grid  or 
nesh-type  configuration.  Such  decentralization  is  important 
to  overall  system  survivability  and  reliability.  A  network 
architecture  such  as  this  is  capable  of  remaining 
operational    if    one   or   more   nodes   is    re'^dered 
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non-onerat  ional .  The  archi  te^^ture ,  combined  with  packet 
switching  technology,  allows  for  sufficient  alternate 
routine^  capability  to  ensure  a  robust  syster.  It  offers 
significant  irnproverent  over  sore  of  the  present  "backbcne" 
(hierarchical)  systers  in  which  the  failure  of  ore  node 
alon?  the  chain  would  completely  disrupt  corrrunicat ions  on 
the  entire  network. 

It  is  obvious  that  a  mobile  and  tactical  application  of 
APPAN:?T  technology  would  offer  new  challe'-.^es  to  syster 
engineering:,  ^ost  apparent  is  the  fact  that  ARPANi^T  sites 
are  interconnected  by  high  speed,  low-error,  fixed  telephone 
circuits.  This  kind  of  interconnecti vi ty  is  net  possible  on 
a  dynamic  battlefield.  The  only  other  alternative  is  to 
utilize  mobile,  digital  radio  equipment  to  achieve 
connectivity. 

E.   THE  ALOHA  SYSTEM 

Several  years  a^o  researchers  at  tl^e  University  of 
Hawaii  began  work  on  such  hardware.  Because  there  was  an 
unusually  high  error  rate  on  the  local  telephone  lines, 
remote  users  of  the  university  computer  were  unable  tc 
effectively  communicate  with  the  computins'  facility.  This 
led   to  a   research  program  to  investigate  the  use  of  burst 


radio   transmission   in  place   of   telephone   lines 
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error-free,  line-of-sight  coTTunicati ons  to  the  computer 
center.  The  resulting  effort  became  known  as  the  Aloha 
System,  a  series  of  packet-switched,  ultra-high  frequency 
(UHE),  radio  terminals.  [13] 
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The  «loha  Syster  is  essentially  a  broadcast, 
multi-acress  network.  The  ""broalcast  ^apaMlity"  of  a  radio 
channel  implies  that  a  si-gral  ^°nerated  by  a  radio 
transmitter  rnay  be  received  over  a  wide  area  "by  ar. y  nurnber 
of  receivers.  "Multi-access  capability"  of  a  radio  charnel 
means  that  any  number  of  users  may  transmit  r^^er  a  common 
channel.  Hence,  all  users  within  line-of-sight  of  one 
another  form  a  network  that  is  <"ompletely  connected, 
Independent  of  the  number  of  users. 

F.   PACK"5:T  radio  INT-ROrUCTICM 

Research  done  at  the  University  of  Hawaii  led  to  the 
development  of  packet  radio.  Packet  Radio  extends  the  Aloha 
System  to  military  uses.  The  goals  of  military  experime'^tal 
versions  of  a  packet  radio  system  differ  from  those  of  the 
original  &lcha  net  in  the  following  areas:  [13] 

(1)  Distributed  control  of  the  network  mana^eT^nt 
functions  should  be  provided  amor?  multiple  stations  for 
reliability,  and  the  use  of  a  netted  array  of  possibly 
redundant  repeaters  for  area  coverage  as  well  as  for 
reliability  should  be  included. 

(2)  The  system  should  use  sDread-spectrum  signaling  for 
coexistance  with  other  possibly  different  systems  in  the 
same  band  and  for  antijam  protection.  Surface  acoustic  wave 
technology  has  become  a  viable  current  choice  for  met^'hed 
filterine;  in  the  receiver. 

(3)  The  provision  of  authent i caion  and  anti-deception 
mechanisms  Is  required. 
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^4)  System  protocols  should  te  incorporated  that  perform 
network  rrapping  to  locate  ard  la^el  repeaters,  route 
determination  ana  resource  allocation,  rencte  dehu^^in?,  and 
other  distributed  network  functions. 

(5)  The  use  of  various  implementation  te^hniaues  to 
provide  efficient  ODerational  eoui-crent  such  as  repeater 
power  shutdown  except  while  processing  packets  should  be 
included . 

because  packet  radios  operate  within  a  broadcast 
network,  and  all  the  network  radios  use  a  commo'^  frecuency 
band  (1713-1653  I^Fz  ) ,  tnis  technology  has  so'-e  favorable 
implications  for  freouency  management  and  frequency 
conservation.  Accordin?  to  current  military  doctrine,  the 
frequency  spectrum  is  allocated  roughly  in  accordance  with 
each  user's  stated  requirement.  In  er.  A.rmy  or  ^'arine 
livision  this  results  in  a  frequency  management  problem  of 
too  many  nets  requiring  too  few  frequencies  ani  a  "C-stant 
threat  of  de^-raded  communications  due  to  mutual  inteference 
problems.  Onc*=  a  frequency  is  allocated  for  a  particular 
mission,  it  is  not  available  for  use  by  others  in  the  sa^e 
area  . 

This  mi^ht  be  an  effective  management  technique  if  each 
assigned  band  were  actually  used  most  of  the  time.  In 
practice  this  is  not  usually  th^  case,  and  mu^h  of  the 
frequency  spectrum  is  idle  (not  engaged  in  carrying 
traffic). 
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A  broadrast  network  in  which  a  number  of  users  share  a 
connon  "broad  frequency  band  offers  improvement  to  t!"is 
situation.  The  limited  frequency  sr,ectrur  could  be  used  "ore 
efficien^.ly  if  (1)  the  shared  frequency  band  was  vide  enou,rh 
to  allow  all  users  to  transmit  required  traffic,  (2^  a 
channel  access  scheme  was  defined  such  that  all  users  could 
access  the  channel  when  needed  while  at  the  same  time 
allowing  little  or  no  mutual  interferen^^e,  and  ''3)  the 
channel  usa^je  was  high  enough  to  ensure  minimum  empty  time 
when  the  channel  was  not  in  use. 

G.   CHAMNTL  ACCI'SS  SCHI^^.FS 

One  primary  means  of  categorizing  radio  broadcast 
systems   is   the  method   e^^ployed   for   channel   access.  As 

mentioned  earlier,  packet  communications  have  found 
important  applications  in  ground-based  radio  information 
distribution,  and  in  this  situatio'^  there  exists  a  common 
broadcast  channel  that  is  available  and  shared  by  a 
multiplicity  of  users.  Because  these  users  demand  aci^ess  to 
the  channel  at  unpredictable  times,  sore  access  scheme  must 
be  introduced  to  coordinate  their  use  of  the  channel  in  a 
way  which  prevents  degradations  and  mutual  interference. 

A  large  number  of  channel  access  ideas  have  been 
invented,  analyzed  and  described  in  current  literature.  For 
a  summary  of  these  schemes,  see  [14].  All  of  taese  schemes, 
however,  mi,?ht  be  placed  in  one  of  three  broad  categories. 
[15]  Fach  category  has  its  own  advantages  and  costs. 
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1 .   Category  I 

The  first  cete^ory  involves  random  access  contention 
scherres  whereby  little  or  no  control  is  exertei  on  the  users 
in  accessing  the  channel.  This  results  in  the  ocasicnal 
collision  of  packets  on  the  air.  K  collision  iTT:lies  thet  at 
least  one  colliding  packet  is  unintelligihle  and  that 
channel  usability  for  the  time  of  the  collision  raj  be  lost. 
Access  schemes  which  fall  into  this  first  cate^rcry  are  the 
pure  Aloha,  the  slotted  Aloha,  and  to  e  lesser  extent. 
Carrier  S'^rse  Multirde  Access.  These  are  the  access  methods 
used  by  packet  radio  systems. 

To  better  understand  ra'^dom  a'^cess  contention 
schemes,  consider  the  example  shown  in  figure  2.  There  are 
sore  number  of  users,  each  of  which  transmits  sore  number  of 
packets  of  time  duration  "tau"  at  random  times.  Line  four, 
labeled  5^■^^,  indicates  the  total  traffic  that  all  the  users 
attempt  to  send  in  a  fixed  time. 

In  this  example  all  traffic  is  able  to  be 
transmitted  without  conflict  except  fcr  the  collision 
Indicated  by  the  hashed  area.  These  two  packets  (?-l  and 
K-1)  may  both  be  unrecognizable  to  the  receiving  station  (at 
least  or^e  will  be  unreadable)  and  both  could  require 
retransmission. 

In  the  non-slotted  Aloha  random  access  technique, 
packets  are  transmitted  as  soon  as  they  reach  the  tcD  cf  the 
transmit  queue  at  the  radio.  No  consideration  is  made  cf 
current  channel  activity.   Therefore,   they   risk   collision 
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with  other  packiets  on  the  air. 

In  the  slotted  Aloha  rethod,  tirre  is  bro^cen  into 
discrete  quantities  equal  to  the  naxinuT  time  of  i^r  ora^a  ti  cr. 
within  the  network.  Users  are  restricted  to  t  ransri  ssicr. 
orly  at  the  "beginnir^  of  each  tire  slot.  Again,  collisions 
rrej  be  frequent  . 

In  the  carrier-sense  rrode,  the  radios  listen  hefore 
they  talk  and  thereby  reduce  the  risk  cf  packet  collisions. 
The  radio  senses  the  state  of  the  channel  before 
transmitting.  If  the  channel  is  occupied,  the  radio  waits  a 
random  arount  of  tire  and  senses  the  state  cf  the  channel 
again  before  attempting  to  transmit. 

An  important  measure  of  peformance  for  evaluating 
these  random  access  techniques  is  "throughput."  Throughput 
in  packet   radio  technology  is  defined  slightly  differently 

than  the  definition  given  in  Chapter  II.  Here  it  is  defined 
as  the  percentage  of  time  that  the  channel  is  actually 
occupied  by  useful  traffic.  Or,  to  put  it  another  way,  it  is 
the  message  density  on  the  channel.  Is  the  channel  cavryir.i 
useful  traffic  (non-colliding  packets)  most  of  the  time,  or 
is  there  a  lot  of  time  wasted  between  packets  when  the 
channel  is  empty? 

Figures  2  and  4  show  how  throughput  is  calculated  in 
both  techniques. 
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It  should  be  obvious  that  throughput  is  higher  in 
the  carrier-sense  mode  due  to  the  decreased  number  of 
collisions.  In  fact,  analysis  has  shown  that  the  raxinuT: 
throughput  possible  with  the  non-slotted  Aloha  nethod  is 
approximately  l/2e  or  18.4%.  Throughput  in  the  slotted  Aloha 
method  is  twice  as  high  as  the  non-slotted  method  (35%). 
Throughputs  as  high  as  .80  to  .90  have  been  obtained  using 
the  carrier-sense  mode  for  cases  in  which  the  channel 
propagation  time  is  small  compared  to  message  duration.  Poth 
of  these  methods  are  classified  as  asynchronous. 

Another  important  measure  of  neformance  for 
distributed  computer  systems  is  a  low  delay  time.  This  means 
that  queries  and  responses  between  the  system  and  the  user 
take  a  minimum  amount  of  waiting  time.  A  short  delay  time  is 
important  when  there  are  many  interacti^^e  users  on  the  net. 
Typically,  in  order  to  decrease  delay  time  packet  length  is 
shortened.  Long  packet  lengths,  however,  are  necessary  to 
increase  throughput,  shorten  queue  lene-ths  and  decrease 
processing  overhead  per  bit. 

On  the  battlefield,  calls  for  fire  from  a  forward 
observer  would  typically  be  short  messages  requiring  a  fast 
response,  whereas,  intelligence  summaries  are  normally 
several  cages  long  and  require  no  reply.  If  both  types  of 
messages  are  carried  by  the  same  ccmmunica ticns  "hannel,  cne 
can  readily  understand  why  there  are  tradeoffs  between 
throughput  and  delay  time. 
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2,      Category  II 

At  the  opposite  extrerre  of  categ-ories  of  redio 
channel  access  irethods,  there  are  scherres  which  use 
corrpletely  static  reservation  access  methods.  These  s'^hemes 
pre-assign  capacity  to  users  and  effectively  -^reate 
"dedicated"  as  opposed  to  multi-access  channels.  Such 
scherres  as  Tirre  Tivision  Multiple  Access  (TDMA),  frequency 
Division  f^ultiple  Access  (FL'IA),  and  Code  Division  Multiple 
Access  (CDr^A)  fall  into  this  category.  The  Jcint  "actical 
Inf  orrration  Di  strihuti  on  System  (JTIIS),  Phase  I,  and  the 
U.S.  Marine  Corps  Position  Location  Reporting  Syste"-  (PIPS) 
use  the  TIMA  scherre  in  which  time  is  broken  down  into 
discrete  intervals.  The  largest  time  cycle  (called  an 
"epoch"  in  JTIDS)  is  divided  into  thousands  of  smaller  time 
slots  or  windows.  Zach  user  on  the  broadcast  network  is 
assigned  one  or  many  time  slots  i"  which  he  can  transmit 
messages.  After  the  passage  of  the  cyclic  time  Deriod  his 
time  slot  again  appears  and  he  can  transmit  again.  This 
technique,  obviously,  is  nighly  dependent  upon  all  users 
maintaining  accurate  time  synchronization.  The  FDMA  and  Cl^'A 
schemes  have  also  been  developed  to  statically  assign  each 
user  a  fixed  portion  of  the  channel  according  to  a  unique 
frequency  or  code  respectively.  Here  the  problem  is  that  a 
bursty  user  will  often  not  use  his  preassigned  capacity,  in 
which  case  it  is  wasted.  When  a  user  is  idle  his  portion  of 
the  channel  cannot  be  used  by  other  stations  with  traffic. 
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3.   Category  III 

Between  these  two  extrerres  are  the  dyraric 
reservation  systerr.s  which  only  assign  channel  capacity  to  a 
user  when  he  has  data  to  send.  In  these  schemes  a  certain 
portion  of  th^  channel  is  set  aside  in  which  to  dynarrically 
schedule  transmission  times.  Several  schemes  fall  into  this 
category.  In  a  Pollirg  scheme  the  user  waits  passively  to  oe 
asked  if  he  has  data  to  send.  In  an  active  reservation 
scheme  the  user  asks  for  capacity  when  he  needs  it.  In  the 
Mini-Slotted  Alternating  Priority  scheme  a  token  is  passed 
among  numbered  users  in  a  prearranged  sequence,  giving  each 
permission  to  transmit  when  he  receives  a  token.  The  cost  of 
these  schemes  is  the  overhead  required  to  implement  the 
dynamic  reservations. 

The  following  Figure  5.  surmarizes  the  costs  of 
these  three  categories.  [15] 

The  Cost  of  Distributed  Resources 
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H.   CU^R^NT  PROGRAhS 

As  was  previously  mentioned,  "before  lerFe  scale 
distributed  data  systeTS  can  be  introduced  f^  a  rrcbile 
battlefield,  higher  capacity  r^omnunicat  i  on  s  hardware  is 
required.  The  U.S.  Arrry  is  working  on  two  progress  to  '^eet 
this  requirement.  The  two  systems  under  development  are  the 
PLRS/JTIDS  hybrid  and  packet  radio. 

An  Army  Letter  of  Agreement  [25]  which  addresses  the 
need  for  these  systems  reads:  "There  is  an  ursrent  need  for 
communications  capable  of  supporting  existing  and  programmed 
automated  system-s  for  Air  Lefense,  ^ield  Artillery, 
Intelligence,  and  Command  and  Control.  Characteri  stiffs  of 
machine-to-machine  communications,  coupled  with  the  need  for 
fast  reaction  times  and  a  high  degree  of  mobility,  result  in 
a  requirement  for  a  specialized  distributed  data 
communications  system.  Vithout  this  data  ccnmunications 
improvement,  hie-hly  sophisticated  and  highly  effective 
weapon  systems  fielded  in  the  early  19£2's  will  not  operate 
to  full  potential." 

In  further  describing  present  commu'^icati  or.s  systems 
this  document  speaks  of  existing  equipment  as  being 
"technologically  old,  generally  manually  connected,  too 
large  and  immobile  (multichannel),  and  requiring  intensive 
maintenance  and  logistical  support."  "The  current 
communication  system  cannot,  without  the  addition  of  a 
digital  data  com.municat ions  capability,  meet  the  demand 
imposed   by   the  emergence  of  automated  systems  in  the  early 
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1980 's." 

The  precise  extent  of  this  communications  shortfall  is  a 
matter  of  intense  study  b/  the  Integrated  Tactical 
Communications  Studv  (INTACS)  Update  Study  effort. 

The  PLT?3/JTICS  hybrid  offers  a  solution  to  this  problem 
in  the  rid-l980's.  Packet  radio,  also,  is  a  promising 
technology  to  satisfy  future  tactical  data  distribution 
missions.  Its  development  schedule,  however,  effectively 
eliminates  it  as  a  short  term  candidate. 

1.  PLRS/JTirs  Hybrid 

A  detailed  description  of  the  PLPS/JTISS  hybrid  is 
not  possible  here.  Briefly  stated,  however,  the  system  is  a 
computer  based  system  which  provides  real  time,  secure  data 
communications,  and  position  location  and  reporting 
information  for  tactical  forces.  It  combines  desirable 
features  of  both  the  PLRS  an  the  JTILS  systems,  using 
modified  equipment  from  both  systems.  This  system  is  planned 
for  introduction  to  the  field  by  1966. 

In  addition  to  work  being  done  on  the  PLPS/JTICS 
hybrid,  the  Army  is  monitoring  or  participating  in  some 
interesting  tests  with  packet  radio,  described  in  the 
following  sections. 

2.  San  Francisco  "Bay  Experimental  Packet  Padio  Network 
The  current  experimental  packet  radio  netv/ork  being 

supervised  by  SHI  International  is  located  in  the  San 
Francisco  Pay  area  and  has  been  operational  since  July, 
1976.  Figure  6  [16]  shows  a  map  of  the  network  sites. 
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There  are  two  station  FPU's  located  at  the  Menlo  Parle  site. 
Each  station  has  an  associated  PEP-11  computer  attached.  The 
network  has  four  fixed  repeater  sites  spread  over  the  area 
and  a  variable  nurrber  of  paclcet  radio  user  terminals 
(typically  four  to  six).  There  are  two  vehicular  packet 
radio  terminals.  These  mobile  terminals  are  an  important 
aspect  of  the  network,  and  a  hand-off  of  a  mobile  terminal 
from  one  repeater  to  another  is  frequently  exercised. 
3.   The  Fort  Bragg  Test  Bed 

The  U.S.  Army  has  also  recently  set  up  a  test  bed 
for  the  evaluation  of  Packet  Radio  at  Ft.  Bragg,  North 
Carolina.  ARPA  is  sponsoring  this  effort,  known  as  the  Army 
Data  Distribution  System  (ADDS).  "The  purpose  of  the  ADDS 
experiment  is  to  develop  an  environment  in  the  resident 
XVIII  Airborne  Corps  to  permit  user  participation  in  the 
development,  refinement  and  evaluation  of  innovative 
concepts  for  deployment  of  distributed  data  in  support  of 
future  tactical  Army  data  distribution  requirements.'  [l'^] 

In  this  multi-phased  experiment.  Ft.  Brag?  is 
experiencing  a  step-by-step  build  up  of  resources.  The  first 
phase  of  the  experiment  began  in  January,  1979.  Three 
computer  terminals,  a  network  processor  (called  a 
TIP-Terminal  Interface  Processor)  ard  a  host  computer  were 
installed  at  Ft.  Bragg  and  connected  via  commercial 
telephone  lines  into  tne  ARPANET.  After  installation, 
operator  training  began  in  1-2  day  courses. 
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The  second  phase  hegan  in  April,  1979  and  the  number 
of  terminals  was  increased  to  fifty.  The  training  in  these 
phases  acquainted  operators  of  all  ranks  with  the  basic 
preprogrammed  capabilities  of  the  APPa^FT  includir.s- 
electronic  mail,  file  management,  directory  maintenance, 
text  editing,  and  printing.  More  specific  applications 
geared  to  tactical  information  flow  requirements  are  also 
"being  tested  in  garrison. 

Phase  III  of  the  ADLS  experiment  is  currently  going 
on  and  involves  the  introduction  of  Packet  Radio  into  the 
testbed.  The  PP  network  at  Pt.  5ragg  will  evertually  grow  to 
approximately  2e  radios  and  2  control  stations.  Initially, 
the  radios  are  being  employed  in  garrison  to  replace 
hard-wired  connections.  In  the  future,  they  will  be  deployed 
to  the  field  in  support  of  Corps  exercises. 

Packet  Radio  is  expected  to  fullfill  at  least  two 
major  roles  in  the  Ft.  Bragg  testbed.  The  first  is  to 
determine  if  this  communications  technology  will  satisfy  the 
tactical  data  communications  requirements  of  a  corps  on  the 
battlefield.  In  this  role,  the  system  will  be  placed  into 
the  testbed  as  would  any  other  communications  system 
proposed  for  Army  use.  A  second  role  is  to  provide  a  broad 
band  communications  channel  for  other  systems  un-ier 
development  which  requires  a  data  transfer  capability.  In 
this  role  the  PRNIT  would  provide  communications  for  TAC^IRP 
or  some  other  intelligence  or  air  defense  system  while 
maintaining  its  ARPANET  connectivity  as  well.  [17] 
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Heports  from  the  It.  Bragg  tsstbed  indicate  that  the 
X^III  Airborne  Corps  personnel  have  rar)idlv  ana 
enthusiastically  adapted  to  the  computer  tased 
conrunicat ions  technology.  It  is  possible  that  the  use  of 
this  data  distribution  technology  can  become  as  routine  to 
commanders  and  staffs  as  voice  communications  are  today. 
[171 

In  any  case,  the  Ft.  Bragg  experiment  represents  ar. 
innovative  and  unique  approach  to  investigating  advanced 
concepts  in  Army  doctrine  and  tactics.  The  testbed  is  a 
departure  from  traditional  Army  tests  designed  to  arrive  at 
production  decisions,  and  is  being  driven  by  the  urgent  need 
for  increased  tactical  data  distribution  capability. 

I.   FUTURE  IMPLICATIONS 

Is  is  not  an  exageration  to  say  that  these  are  very 
crucial  days  for  the  U.S.  military.  Resource  investrent 
decisions  are  rore  important  now  than  ever  before  in 
history,  and  the  consequences  of  bad  Judgement  offer 
potential  for  great  loss.  Some  would  argue  that  an 
ever-increasing  dependency  upon  technology  by  the  armed 
forces  is  a  very  dangerous  trend.  Nevertheless,  it  is 
apparent  that  electronics  and  telecommunications  advances 
are  beginning  to  have  significant  impact  upon  strategy. 
Chapter  One  of  the  U.S.  Army  Combat  Communications  Field 
Manual  is  entitled  "Command,  Control,  and  Conrrunicat  ions 
(C3)".  A  quotation  from  this  document  helps  to  stress  the 
intensity  of   future  battles  and  the  necessity  of  accurate 
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and  realistic  planning  for  that  en^a^ement .  [24] 

The  U.S.  Army  has  arrived  at  a  point  where  technology 
and  reality  have  outrun  our  old  tactics  on  fighting  ana.  left 
theT  in  the  dust.  V'e  have  co^e  to  the  shcckin,^  realization 
that  the  old  way  of  doing  things  will  not  woric  any  rore."' 

"a  good  exarple  of  the  change  in  combat  reality  facing 
today's  soldier  is  an  often  used  statistic  fror"  the 
Arah-Israeli  War  of  1973.  In  20  days,  over  1700  tanks  were 
destroyed  between  the  two  sides.  That's  as  nany  tanks  as 
there  are  in  five  U.S.  arrrored  divisions.  Technology  has 
irrproved  the  weapons  systems  to  the  point  where  a  tank  has  a 
50-50  chance  of  being  hit  by  the  first  round  fir^^d  at  it.  We 
must  retool  our  tactics  to  meet  the  reality  of  the  next 
fight." 

Certainly  the  capabilities  of  an  army's  command  and 
control  system  has  a  great  influence  upon  the  capability  of 
the  force  as  a  whole.  The  trends  and  technologies  described 
in   this   chapter  have  far-reaching  implications  to  doctrine 

and  pose  sore  problems  that  have  yet  to   be   solved.   It   is 
beyond   the   scope   of   this   thesis   to  dwell   en   these 
irrplications  in  great  length.  A  listing  of  the  most   obvious 
ones,  however,  is  interesting  and  instructive. 
1.   Chain  of  Command 

First  of  all,  how  will  distributed  systems  change  or 
affect  the  traditional  chain  of  command  structure?  C?  system 
architectures  typically  reflect  the  chain  of  command  within 
an  organization,  and  this  results  in  most  C3   systems   ijeing 
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very  hlerarchicel  in  structure.  Distributed  s/sterrs  tend  to 
be  grid-liie,  peer  structures.  In  a  distributed  system,  is 
it  advantageous  to  practice  the  concept  of  "s>lp  echelon" 
reporting,  in  which  certain  levels  of  ccn-.mand  nay  send 
traffic  directly  to  the  highest  or  lowest  elerrents  without 
intermediate  "information  only"  stops?  Certainly  t^is  would 
tend  to  decrease  the  tirre  of  delivery  of  ressages  ard  would 
avoid  congestion  on  the  network.  But  can  the  intermediate 
conranders  afford  to  r.iss  information  that  might  prove  to  be 
critical  cr  essential?  What  affect  do  distributed 
architectures  have  on  the  traditional  role  of  c ormunica ti ons 
centers  and  message  centers?  Would  the  requirement  for  these 
functions  be  eliminated?  *nen  the  network  is  organized  ir  a 
peer  structure,  how  are  protocols  designed  in  order  to 
preserve  a  "priority"  system  to  message  traffic?  These  are 
questions  that  remain  to  be  answered. 
2.   Network  Management 

Next,  a  very  important  question  is  the  manner  in 
which  network  control  and  data  base  manasenent  is  exercised. 
Although  distributed  systems  appear  outwardly  to  be 
decentralized,  a  static,  inflexible  network  control  design 
would  make  the  so-called  "distributed"  system  as  vulnerable 
as  its  hierarchical  predecessor.  Clearly  the  responsibility 
for  network  management  and  data  base  updating  rust  be 
transferable  within  the  network,  and  the  capability  shculd 
be  shared  by  more  than  one  station.  There  is  a  tradeoff 
reached,   however,   between  one   station   and  multi-station 
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operation.  The  more  nodes  there  are  which  car.  exercise 
network  control,  the  rrore  vulnerahle  the  entire  netwcric 
becones  to  spoofing  and  deception  techniques,  and  the  rore 
costly  and  complex  it  becomes.  It  is  interestiof  to  note 
also,  that  some  of  the  hardest  decisions  and  longest  delays 
in  the  JTIES  program  have  dealt  with  this  question  of 
network  management. 

3.  How  t^.uch  Redundancy? 

In  addition  to  these  important  questions  one  rust 
ask  also,  "How  much  redundancy  is  enough?"  Although 
distributed  networks  are  more  survivable  and  redundant,  what 
kind  of  back-up  systems  are  still  required?  Certainly  an 
increased  dependency  upon  satellite  communications  in 
today's  world  has  decreased  the  investment  in  lone— haul, 
high  frequency  (HF)  communications  systems.  Sore  have  ar^rued 
with  convincing  reasoning  that  this  is  a  dangerous  position. 
It  is  generally  more  attractive  to  engineers  and  planners  to 
invent  and  employ  new  systems  rather  than  to  improve  the 
old.  Nevertheless,  it  is  necessary  to  retain  and  maintain 
older,  proven  hardware  as  back-up,  secondary  equipment.  The 
question  remains,  "Fow  much  is  enough?" 

4.  Propagation  Loss  Due  to  Higher  Frequency 

Because  of  the  congestion  existing  at  lower 
frequencies  and  the  high  bandwidth  requirements  of  new 
automated  systems,  new  communications  equipment  is  being 
designed  to  operate  at  very  high  carrier  frequencies.  This 
restricts  propagation  to  strictly  line-of-sight   distances. 
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While  this  situation  is  acceptable  in  ground-to-air  and 
ground-to-satellite  conn".unicat  ions ,  it  posps  serious 
constraints  upon  ,s;round-tc-ground  mobile  ccmmuni  nations , 
especially  ir  rugged  or  forested  terrain.  The  arount  of 
propagation  loss  in  this  situation  is  nighly  significant, 
and  the  utility  of  these  s/sters  has  yet  to  be  proven. 

5.  Management  Information  Systems 

It  was  rentioned  previously  that  the  developr^ent  of 
an  effective  Management  Information  System  (^'IS)  to 
integrate  and  display  data  to  a  cormander  and  his  staff  is  a 
formidable  task.  The  Army,  in  fact,  has  been  wrestlirg  with 
this  problem  for  over  twenty  years  while  attempting  to  field 
its  Tactical  Operations  System  (TOS,  which  is,  in  essence  a 
MIS).  After  that  amount  of  time,  one  questions  whether  such 
a  system  is  nearer  completion  now  than  it  was  in  1960. 

6.  Interoperability 

The  military  is  fast  finding  out  that 
interoperability  m.eans  much  more  than  mutually  compatible 
equipment.  It  also  means  compa tabili ty  of  procedures, 
software,  and  message  formats.  One  should  watch  closely  the 
continued  development  of  JTIPS  and  attempt  to  judge  the 
success  cf  joint  service  programs.  The  interoperability 
requirement  tends  to  introduce  system  ccirplexity  in  an 
attempt  to  make  the  system  "ail  things  to  all  people."  V'hen 
one  moves  to  the  problem  of  interoperability  in  the  NATO 
environment,  the  question  again  becomes,  "How  interoperable 
can   equipment  be  without  becoming  too  costly,  too  bulky  and 
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generally  ineffective?" 

7.  Voice  vs.  Data  Circuits 

Another  important  question  yet  to  be  resolved  is  the 
prorer  trade-off  of  voice  and  data  circuits.  A^ain,  JTIC3 
can  be  the  case  in  point.  .'^ore  services  seer  to  be 
side-steDpins  procurement  comiri  t  tren  ts  partly  due  to  a  lack 
of  definition  of  system  capability  in  this  area,  A.lthough 
tactical  corrrranders  tend  to  prefer  voice  channels,  voice 
channels  require  an  enorniously  greater  bandwidth  allocation 
than  data  channels.  If  a  commander  is  given  the  choice  of 
having  one  voice  channel  or  ten  data  channels  into  his 
command  post,  which  will  he  choose?  Which  should  he  choose? 
What  will  the  system  offer? 

8.  System  Cost 

Finally,  the  question  that  will  be  asked  most  often 
is  simply:  "How  much  will  the  system  cost?"  Costs  are 
divided  into  at  least  four  categories.  There  are  hardware 
and  software  costs,  (it  is  common  knowledge  that  the  latter 
are  now  a  greater  consideration  than  the  former)  and  there 
are  initial  procurement  costs  and  life  cycle  costs. 

Included  in  these  costs  is  the  manpower  question.  Is 
it  realistic  to  think  that  as  systems  become  more  and  more 
highly  technical  that  the  personnel  who  fix,  operate  and 
manage  the  systems  will  be  better  educated  and  rrore 
professionally  competent? 
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IV,   AN  INTRODUCTION  TO  PETRI-NETS 

A.  INTRODUCTION 

The  Durpose  of  this  chapter  is  to  introduce  the  reeder 
to  the  particular  modeling  tool  which  forms  the  basis  for 
this  research.  The  history  of  Petri-Nets  is  first  discussed. 
Then  an  explanation  of  how  Petri-Nets  work  is  presented. 
Tollowine  some  simple  examples,  the  chapter  concludes  with  a 
brief  surrmary  of  the  strengths  and  weaknesses  of  this 
modeling  tool. 

B.  HISTORY 

The  Petri-Net  is  named  after  its  discoverer,  Carl  Adam 
Petri.  These  nets  were  developed  in  his  early  work  in  1962 
in  Germany.  They  soon  came  to  the  attention  of  Anatol  Holt 
who  was  then  leading  an  Information  Systems  Theory  Project 
for  Applied  Data  Research,  Inc.  The  work  of  this  group 
eventually  led  to  the  theory  of  "systemics"  [5]  which  dealt 
with  the  representation  and  subsequent  analysis  of  systems 
and  their  behavior.  At  this  point  the  modern  formalism  and 
notation  of  Petri-Nets  was  introduced.  Holt  also 
demonstrated  the  usefulness  of  the  Petri-Net  rodel  in  the 
representation  of  systems  characterized  by  concurrent 
processes . 

Perhaps  the  single  largest  source  of  research  and 
literature  regarding  Petri-Nets  has  been  Project  ^.KC  at  the 
Massachusetts    Institute   of   Technology.    The     Petri-Net      model 
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was  introduced  to  the  researchers  at  Project  ^'AC  due  to  the 
association  of  Holt's  group  to  J.  Cennis'  Corrputetion 
Structures  Group.  This  group  has  produced  several  FH.D 
thesis,  together  with  ran/  reports  and  terhnical  rernos 
dealing  with  Petri-Nets.  In  addition,  MIT  has  sponsored  two 
irrportant  conferences  dealing  with  Petri-Nets.  The  first  was 
the  Project  !^AC  Conference  on  Concurrent  Systeirs  and 
Parallel  Computation  held  at  Woods  Hole  in  1973.  The  second 
was  the  Conference  on  Petri-Nets  and  Related   Methods,   held 

at  MIT  in  1975. 

This  work,  begun  at  MIT  and  continuing  at  other  centers 
in  the  United  States,  until  recently  tended  to  concentrate 
on  the  formal  or  mathematical  aspects  of  Petri-Nets.  This 
work  bears  resemblance  to  the  research  in  automata  theory. 
It  attempts  to  analyze  systems  by  representing  them  as 
Petri-Nets,  'formally  manipulating  the  representation  in  such 
a  way  as  to  derive  information  relating  to  the  ":}ehavior  of 
the  modeled  system.  Because  of  the  simplicity  and  power  of 
Petri-Nets,  they  are  excellent  tools  to  use  in  the  analysis 
of  concurrent  or  asynchronous  systems.  They  are  finding 
their  way  into  a  number  of  diverse  applications. 

Petri,  himself,  is  still  actively  researching,  expanding 
his  original  theory.  His  extensions  have  led  to  a  form  of 
general  systems  theory  called  "net  theory".  Holt  is 
continuing  his  research,  concentrating  on  system 
representation  and  analysis  of  the  formal  representatio'^s . 
'[5] 
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C.   HOW  PETPI-NETS  WORK 

Simply  stated,  a  P°tri-Net  is  a  model.  f'ore 
specifically,  it  is  an  abstract,  formal  model  that  analyzes 
the  flow  of  information  in  systems.  [5,19]  Petri-N'ets  also 
describe  not  only  the  information  flow,  but  the  controls  and 
constraints  of  such  flow.  A  Petri-Net  grapn  models  the 
static  structure  of  a  system  in  much  the  same  manner  as  a 
flowchart  models  the  structure  of  a  computer  program.  As  a 
modeling  tool,  Petri-Nets  are  especially  useful  in  modeling 
systems  that  exhibit  asynchronous  and  concurrent  activity. 

A  Petri-Net  consists  of  a  collection  of  "events""  and 
"conditions."  In  graphical  notation,  conditions  are 
conventionally  represented  by  circles  and  events  are 
represented  by  bars.  The  Petri-Net  is  given  structure  and 
the  capacity  for  interaction  by  connecting  events  and 
conditions  with  arrows . 

An  arrow  from  a  condition  to  an  event  signifies  an  input 
condition  to  that  event  and  implies  that  every  occurence  of 
the  event  terminates  the  "holding"  of  that  condition.  An 
arrow  from  an  event  to  a  condition  signifies  an  output 
condition,  and  in  this  case,  the  occurence  of  the  event 
commences  the  holding  of  the  output  condition.  The  graphic 
notation  for  a  condition  which  holds  is  the  marking  of  that 
condition  by  a  " toien" . 

The  behavior  of  a  system  may  be  thought  of  as  the 
occurence  of  events  as  time  progresses.  If  all  input 
conditions  to  an  event   hold,   the   event   can   occur.   This 
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results  in  the  holdirg  of  the  event's  output  cor.itior^s. 

Conditions  may  also  l)e  called  "places"  or  "nodes"  and 
events  may  also  be  referrea  to  as  "transitions."  In  tne 
Petri-Net  model  of  a  system,  directed  arcs  connect  places  to 
transitions  and  transitions  to  places. 

The  Petri-Net  is  first  given  a  particular  structure  of 
places  and  transitions,  and  then  it  is  "executed."  Execution 
is  governed  by  a  "firing"  protocol. 

Simply  stated,  a  transition  may  "fire"  (symbolizing  the 
occurence  of  an  event)  when  all  input  conditions  or  places 
into  that  transition  are  marked  with  a  token.  Vhen  all 
inputs  into  a  transition  are  marked,  the  transition  is  said 
to  be  "enabled".  Figure  7  shows  an  "enabled"  transition. 

Execution  of  the  Petri-Net  involves  the  cyclic  checking 
of  all  transitions  once  durin.?  each  time  interval.  lach 
transition  that  is  found  to  be  enabled  is  fired,  and  tokens 
are  moved  from  the  input  places  of  the  enabled  transition  to 
the  output  places  of  that  transition.  This  procedure 
continues  for  a  set  number  of  iterations.  The  flow  of  tokens 
in  the  Petri-Net  thus  symbolizes  the  flow  of  information  or 
control  in  the  modeled  system. 

By  devising  special  methods  for  marking  the  number  of 
tokens  at  the  Petri-Nets  nodes,  the  system  status  can  be 
accurately  and  effectively  recorded.  Th<^  state  of  thp  system 
is  reflected  by  an  ordered  set  of  mark  status  indicators 
which  correspond  to  the  nodes  of  the  graph  structure. 
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Figure   7 
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In  this  thesis  such  an  effective  marking  method  is 
uniquely  errployed  to  give  the  viewer  an  accurate  snapshot  of 
networli  status. 

Petri-Nets  have  rapidly  .gained  acceptance  over  the  last 
decade.  Alone  with  this  aceptance  has  been  the  furthering  of 
the  understanding  of  Petri-Net  proDerties. 

D.  A  SIMPLE  EXAMPLE    j 

Figures  6  through  11  show  the  various  states  of  a  simple 
Petri-Net  as  execution  occurs  during  four  successive  time 
intervals.  [21]  Notice  four  places  (?1,  F2,  P3,  and  ?4 )  and 
three  transitions  (TFl,  TR2,  and  TE3).  The  directed  arcs 
denote  the  interaction  and  relationships  tetween  input  and 
output  conditions.  For  instance,  TRl  will  "become  enahled 
when  PI  (its  only  input  condition)  is  marked  with  a  token. 
At  the  time  that  TBI  fires,  the  token  will  be  removed  from 
its  input  condition  (PI)  and  placed  in  its  two  output 
conditions  (P2  and  P4).  In  this  manner  flow  of  information 
or  control  is  followed  through  the  modeled  system.  Figure  6 
shows  the  network  at  time  =  0  with  one  token  placed  in  PI. 
Figures  9  through  11  depict  the  Petri-Net  as  it  continues 
execution  through  time  =  3. 

E.  ADVANTAGES  AND  DISADVANTAGES 

The  following  characteristics  of  Petri-Mets   were  found 

hy   the  authors   to  be  strengths  when  using  this  particular 

modeling   tool   for  simulations  in   the   context   of   this 
research : 


54 


A  MARKED  PETRI-NET   (TIME  =  0) 


Figure  8  / 


A  MARKED  PETRI-NET   (TIME  =  1) 


=  A  MARKER 
.  OR  "TOKEN" 


Figure  9 
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A  MARKED  PETRI-NET   (TIME=2) 


Figure  10 
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A   MARKED  PETRI-NET   (TIME  =  3) 


=  A  MARKER 

OR  "TOKEN" 


Figure  Hi 
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1.  Th9  rules  governing  Petri-Net  execution  are  simple 
and  easy  to  understand.  This  7>et  h.odology  car^  'be  quickly 
grasped  by  those  with  ncn-technical  backgrounds  who  would 
ordinarily  be  unable  to  understand  ra  therrat  ical  or 
analytical  modeling.  Yet  Petri-Nets  retain  a  nigh  decree  of 
precision  and  accuracy. 

2.  There  is  much  flexibility  inherent  in  the  Petri-Net 
graph  to  model  wide  ranges  of  complexity.  Tor  instance,  a 
model  can  be  further  abstracted  by  the  replacement  cf  a 
complex  network  of  nodes  by  a  single  node. 

3.  There  is  a  large  degree  of  flexibility  ir  assigning 
time  intervals  durinsr  execution. 

4.  Petri-Nets  are  well-suited  to  "snapshot"  portrayal  of 
network  states.  This  advantage  is  important  in  simulation 
languages  and  is  considered  a  strong  point  of  languages  such 
as  GPSS  and  SIMSCRIPT.  Pstri-Nets  possess  this 
characteristic  oy   nature. 

5.  Petri-Nets  nave  the  potential  for  a  wide  variety  of 
uses.  Basically,  any  process  that  can  be  flow-charted  could 
be  expressed  by  Petri-Nets.  Applications  coald  include:  flow 
of  information  or  control  in  an  organization,  information 
flow  in  electronics  hardware,  representation  of  computer 
software  or,  procedures  and  stages  of  development  in  a 
management  program. 

6.  Petri-Nets  lend  themselves  well  to  computer  graphics 
display. 
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7,  Petri-Nets  are  very  effective  wher  rrodelirig 
concurrent,  asynchronous  activity  in  a  network  or  systerr. 

Certain  weaknesses  also  "became  apparent  to  the  authors 
in  the  course  of  this  work.  They  are   listed  as  fellows: 

1.  Although  Petri-N'ets  are  "basically  sirple  to 
understand,  the  small  "building  blocks  of  a  network  socn 
becorre  exceedingly  large  and  complex  when  large  systers  are 
modeled.  The  input  files  to  sorre  of  the  larger  sirrulations 
in  this  paper  were  rrore  than  143^  lines  long.  These  networks 

rrust  "be  drawn  on  paper  before  their  entry  into  the  computer, 
and  this  kind  of  effort  soon  becomes  very  tedious  and  prone 
to  error. 

2.  Petri-Nets  are  best  suited  to  concurrent, 
asynchronous  behavior.  When  non-concurrent,  synchronous 
behavior  in  a  system  is  T.odeled  the  Petri-\'et  assumes  a 
large  amount  of  overhead. 

3.  The  fact  that  Petri-Nets  are  riot  generally  well  known 
in  the  computer  communications  community  could  be  a 
disadvantage  when  the  user  wishes  to  prove  the  accuracy  of 
his  model. 

4.  The  fact  that  the  simulator  '  employed  in  this  thesis 
effort  was  deterministic  could  be  considered  either  as  an 
advantage  or  disadvantage  depending  upon  the  application. 
Many  simulations  have  value  because  of  their  stochastic 
nature.  Certain  classes  of  experiments,  however,  need  to  te 
understood  not  because  of  "chance"  happenings  but  because  of 
the   operation   of   the   "laws"   of  nature  working  upon  the 
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elements  of  the  experiment. 

As  with  any  model ine*  technique,  success  is  achieved 
through  the  rodeier's  fariliarity  with  the  Todeling  tool. 
Petri-Nets  provide  an  excellent  means  to  rodel  those 
applications  best  characterized  by  their  asyrchronous , 
concurrent  nature. 
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V.   P'STRI-NgT  SIMULATION?  OP  CCMPUTIR  CCi^MUN  I  CATION  ^.'ETVOP.KS 


A.   U'TRODUCTION 

Once  the  "basic  rules  of  Petri-Net  execution  are 
understood,  it  is  a  sirrple  rratter  to  apply  these  rules  to  a 
cornnunicat  ions  network.  The  systen  rrodelea  is  the  network 
itself.  The  n'overrent  of  tokens  in  the  Petri-Net  represent 
the  flow  of  inf  orniat  i  on  within  the  system:  in  this  case, 
message  traffic  in  the  network.  Each  token  heccrres  a 
discrete  amount  of  information  contained  within  the  messa<?e. 

The  places  in  the  Petri-Net  graph  are  used  to  represent 
communications  nodes  within  the  network.  The  directed  arcs 
of  the  Petri-Net  graph  are  used  to  represent  the 
communications  links  or  channels  which  interconnect  the 
nodes.  The  transitions  between  nodes  indicate  the 
availahility  of  the  channel  to  carry  traffic.  If  the 
transition  is  enabled,  the  channel  is  clear,  ari  the  message 
is  relayed  from  input  node  to  output  node. 

The  careful  structuring  of  the  Petri-Net  graph  imposes 
upon  the  modeled  system  a  variety  of  network  prctor^ols.  An 
advantage  of  using  Petri-Nets  for  simulation  purposes  is 
that  the  logic  and  protocol  of  the  system  are  entirely 
contained  in  the  structure  of  the  Petri-Net  graph  rather 
than  in  a  complicated  mathematical  algorithm  witliin 
simulation  software. 


63 


B.   TYP?S  0?  NODES 

The  graphical  output  of  the  simulatior.  attaches 
significance  to  the  shape  of  the  nodes  displayed  to  the 
screen  to  facilitate  recoenition  a^.i  interpretation.  The 
experimental  packet  radio  network  in  the  Sen  Francisco  ray 
area  defines  tnree  prirary  types  of  rodes:  tern-inals, 
stations,  and  repeaters.  A  terminal  is  a  user  node  at  which 
traffic  is  inputted  or  to  which  traffic  is  destined.  It 
could  he  a  fully  automatic  sensor,  a  handheld  device,  or  a 
keyhoard  with  GET;  hut  a  terminal  is  a  place  where  users 
connect  to  the  network.  The  station  is  the  noce  at  which 
network  control  is  exercised.  The  station  typically  keeps 
network  statistics,  monitors  flow  and  congestion  control, 
assigns  routing,  and  performs  data  base  management  for  the 
system.    It   is   a   terminal   with   increased   processing 

capability  usually  provided  by  an  attached  mi ni-corputer . 
The  repeaters  are  stand-alone  devices  placed  in  nujerous, 
dispersed  positions  throughout  the  network  to  act  as  relay 
sites.  Pepeaters  do  net  act  as  origins  cr  destinations  of 
traffic,  but  they  serve  the  purpose  of  extending"  the 
geographical  ran^e  of  the  network  beyond  a  typical 
line-of-sight  distance, 

Vhile  all  networks  do  not  use  this  ider.ti'^al 
terminology,  these  three  functional  nocles  summarize  the 
requirements  of  communication  hardware  in  most  networks.  In 
the  simulations  in  this  thesis,  three  types  of  fis-ures  and 
labels  represent  the  functions  of  nodes  as  described  above. 
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C.   A  Sir^PLE  APPLICATION  EXAMPLE 

In  order  to  unaerstand  rr.ore  cornpletel/  the  application 
of  Petri-Nets  to  corrrrunicat  i  ons  circuits,  refer  to  Ei^ure 
12.  In  this  dia^rarr  two  distinct  one-way  cor.runica  t  i  o.is 
channels  are  represented.  The  first  goes  fror  Tl  to  ^2  and 
the  second  ^oes  from  T3  to  T5  and  through  T4:.  The  individual 
tokens  are  representative  of  packets  of  information  in  a 
packet  switched  environment.  The  three  additional  nodes 
forming  a  triangle  in  the  center  of  the  iiagrar  impose  a 
special  firing  order  upon  the  transitions  in  tne 
communications  channel.  These  center  nodes  are  systems 
overhead  which  ensure  that  only  one  "packet"  can  be 
transmitted  during  a  single  time  frame.  In  fact,  if  the 
three  additional  center  nodes  are  thought  of  as  a  clock, 
then  the  entire  network  is  a  representation  of  Time  Division 
Multiple  Access  in  a  network.  A  terminal  can  only  transmit 
during  a  particular  assigned  time  slot.  After  the  time  slot 
passes,  the  user  must  wait  until  the  clock  cycles  tack  to 
his  slot  again.  Because  each  transmitter  has  a  unique  time 
slot  assignment,  no  two  terminals  can  transmit  during  the 
same  time,  and  collisions  of  packets  on  the  radio  hrcadcast 
channel  are  eliminated. 

This  explanation  should  give  the  reader  a  simple  idea  of 
the  manner  in  which  various  protocols  are  represented. 
Obviously  the  Petri -Met  in  i^'ie-ure  12  allows  only 
non-concurrent  activity  on  the  communications  channels. 
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The  removal  of  the  additional  overhead  would  allow 
concurrent  activity.  In  fact,  this  is  sorreti-^es  desirable. 
Tor  instance,  those  networks  such  as  AUTOEIN  II  which  will 
iTiake  use  of  leased  lendlines  will  allow  concurrent  activity 
in  the  network.  The  Petri -Net  is  nore  efficient  when 
rrodeling  concurrent  activity.  The  requirerrents  to  ensure 
non-concurrency  as  in  Figure  12  ,  causes  one  additional  node 
and  one  additional  transition  to  be  placed  in  the  Petri-Net 
graph  for  every  transition  on  the  communication  links.  Using 
the  fundamental  Petri-Net  described  here  as  a  srall  building 
block,  a  system  of  considerable  complexity  can  be  built  with 
many  origin  and  destination  terminals,  and  which  allows 
packets  to  flow  two  directions  with  multiDle,  alterrate 
paths  from  source  to  destination. 

D.   RANDOMNESS  IN  PET^I-NETS 

The  Petri-Net  simulator  used  in  this  thesis  work  is 
deterministic.  After  the  si-^ulator  begins  execution  there  is 
no  means  to  interactively  alter  the  sequence  of  events,  and 
there  is  no  element  of  randomness  within  the  simulator. 
Because  of  this  situation,  the  same  input  file  will  always 
give  identical  output.  Although  the  capacity  for  alternate 
routing  within  the  communications  network  is  implementea, 
the  tokens  do  not  randomly  "choose"  their  routes  during 
execution.  They  can  only  follow  their  pre-assigned  routes 
from  origin  to  destination.  This  means  effectively  that 
fixed  routing  instead  of  adaptive  routing  is  represented  in 
the  simulations.   This   is   not  necessarily  a  disadvantage, 
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however,  as  50""e  sirrulati  ons  have  shown  better  throughput 
and  time  of  delivery  results  using  fixed  rcutint'  ever 
adaptive  routing  [22]  , 

It  right  be  advantageous  to  rodify  the  Fetri-Set 
simulator  to  make  it  more  stochastic  in  character.  This 
might  be  accomplished  in  at  least  two  ways.  First,  the 
inital  marking  of  the  network  could  be  varied  randomly  at 
the  beginning  of  each  run.  Certain  key  nodes  could  be  marked 
or  left  unmarked  according  to  the  result  of  a  call  to  some 
random  number  generator.  Then  the  initial  random  state  of 
the  network  would  affect  the  end  result  of  the  output  file. 

A  second  way  to  add  randomness  deals  with  the  Petri-Net 
concept  of  "dynamic  conflicts"  {see  Figure  13,  for  an 
example  of  this  particular  network  state).  In  this  figure, 
the  reader  will  notice  that  both  Transitions  1  and  2  are 
enabled,  but  both  cannot  fire.  Only  one  transition  ran  fire, 
since  in  so  doing  it  removes  the  token  from  T2  ard  disables 
the  other  transition.  Thus  TRl  and  TE2  are  said  to  be  in 
conflict.  This  basic  relationship  can  be  used  to  create 
either  deterministic  or  nondetermini stic  behavior.  If  the 
Petri-Net  simulator  is  deterministic,  the  firing  order  for 
transitions  in  conflict  is  fixed  according  to  a  certain 
rule.  This  describes  the  case  in  this  paper.  The  firing 
order  of  transitions  is  explicitly  defined  by  their  ordering 
in  the  input  file.  In  the  case  of  Figure  13,  if  TRl  is 
listed  in  the  input  file  before  TR2,  and  if  a  dynamic 
conflict  occurs  between  them,  TRl  will  always  fire  first  and 
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TR2  will  not  fire  during  that  time  interval  because  it  '.vill 
have  been  disabled.  This  set  of  rules  ^ives  a  strict 
priority  of  firing  to  the  network. 

The  firir_g  order  of  transitions  in  conflict  coull  oe 
modified  so  that  it  cccurred  in  a  random  fashion.  This  would 
allow  the  Petri-Net  to  be  executed  in  a  non-de terrinis tic 
manner  and  add  the  missing  aspect  of  randomness  to  the 
outcome  if  so  desired.  I'^  fact,  Petri's  first  networks  were 
non-determinestic  because  of  this  factor. 

S.   ^'YMOPT  STORA&E  REPR^SEi'^TATICN 

The  amount  of  memory  storage  in  any  particular 
communications   node   is   also   easily   represented   in   tne 

simulation.  In  this  work  a  maximum  number  of  seven  packets 
is  allowed  at  any  one  node.  This  number  reflects  the  buffer 
size  of  seven  packets  in  packet  radio  technology.  If  at  any 
time  a  node  accummulates  more  than  seven  packets,  the  buffer 
size  has  been  exceeded  and  packets  would  theoretically  be 
lost.  Vfhen  the  buffer  space  is  exceeded,  the  number  of 
overflow  packets  is  displayed  outside  the  node  in  a  red 
warning  color. 

F.  system:  lcad  average 

The  system  load  on  the  network  can  be  represented  by  the 
number  of  packets  in  transit  at  any  one  time  interval.  The 
system  load  then  can  be  varied  by  controling  the  frequency 
of  message  generation.  The  shorter  the  interarrival  time 
between  generated  messages,  the  busier  the  network  will  .be. 
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At  seme  point  the  network  will  be  saturated  and  unacceptably 
congested  if  message  input  is  greater  then  rressage 
throughput . 

It  is  a  simple  ratter  to  construct  a  ressage  venerator 
using  ?etri-Nets.  See  Figure  14.  In  this  figure  Transiticn  1 
is  firing  to  two  outputs.  One  can  be  thought  of  as  external 
and  one  output,  Rl,  can  be  considered  internal  to  the 
network.  The  external  node  car.  represent  entry  into  the 
comrriunications  channel.  The  internal  output  feeds  a  token 
back  into  the  "generator"  and  will,  therefore,  fire  other 
packets  into  the  network  at  regular  intervals.  The  other 
repeaters  (R?,  R3 )  can  be  thought  of  as  delays  which  slow 
down  the  frequency  of  ressage  generation.  This  configuration 
of  places  and  transitions  constitute  a  message  generator. 
The  frequency  of  generation  can  be  staggered  and  then 
several  venerators  pay  be  placed  at  the  input  of  every 
corrruni  cat  ions  circuit.  In  this  rranner  the  syster  load  en 
the  network  may  be  varied. 

G.   TIM!  PFPRESFNTATION 

The  Petri-net  model  is  very  good  at  representing  the  net 
status  at  distinct  time  periods.  In  fact,  each  tire  interval 
displayed  to  the  screen  gives  an  excellent  "snapshot'  of 
network  status.  This  is  a^^  important  advantage  inherent  to 
the  Petri-Net  simulation.  Another  advantage  is  the 
flexibility  afforded  in  assigning  the  tire  interval.  The 
user  has  the  Drerogative  of  making  each  time  interval  as 
long   or   as  short  as  is  necessary.  Successive  snapshots  may 
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represent  the  passage  of  ti^re  of  1  Tillisecond,  12d 
rriilliseconds ,  or  1  hour,  depending  upon  the  application  ana 
network  being  modeled. 
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VI,   THI  EXPl'PiyyMT 

A.   rESCRIPTION 

An  experirrent  was  designed  to  dericrstrate  the 
feasibility  of  using  the  Petri-N'et  simulator  as  a  predictor 
of  network  perf  orrrance .  The  experirrent  was  Derfor^^ed  by 
keeping  certain  pararrieters  constant  and  varying  others.  A 
series  of  six  input  files  were  run  through  the  sirrulator.  In 
all   six  files  the  network  architecture  and  the  fixed  routes 


were  keut  constant.  Figure  15  shows  the  networ>.  Then' 


1 .;  o  p  P 


five  origins  of  message  traffic  and  five  destina ticns  .  Four 
nodes  were  designated  as  terrrinals  plus  one  station.  There 
were  four  repeaters  that  performed  relay  functions  within 
the  network.  Fach  of  the  five  orif*ins  could  send  traffic  to 
one  of  four  destinations.  Fach  source  to  destination 
combination  had  two  routes  for  traffic  to  take.  This  made  a 
total  of  38  possible  fixed  routes  in  the  network. 

The  controlled  variables  for  the  experiment  were  system 
load,  concurrent  vs.  non-concurrent  activity,  and  polling 
frequency  of  various  circuits.  The  first  three  runs  of  the 
experiment  were  done  with  a  high  load.  For  the  second  three 
runs  the  message  generators  were  slowed  down  to  give  a  low 
system  load.  Some  input  files  allowed  concurrent  network 
activity  and  some  required  non-concurrent  activity,  ^n  two 
of  the  non-current  runs  the  frequency  of  polling  certain 
selected  circuits  was  increased.  This  would  represent  the 
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Figure   15. 
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equivalent.  of  assigcnin^  a  certain  user  Tore  tire  slots  in  a 
TrrA  schene  than  another.  It  would  give  priority  to  tnose 
subscribers  who  have  rore  traffic  to  send. 

The  only  statistic  e'^thered  frcT  the  exDerinent  was 
throughput  rr^easured  in  the  nurrber  of  pecl-iets  which 
successfully  reached  their  destination.  This  number  could  be 
extracted  directly  froFi  the  output  queues  at  each  terrinal 
or  station.  The  following  points  sumarize  the 
characteristics  of  each  of  the  six  input  files: 

1.  Runs  22-24  were  run  at  high  load. 

2.  Puns  25-27  were  run  at  low  load. 

3.  Runs  22  and  25  exhibit  concurrent  network  activity. 

4.  Runs  23  and  26  exhibit  ^^on-concurrent  network 
activity  with  equal  polling  frequency  of  all  circuits. 

5.  Runs  24  and  27  exhibit  non-concurrent  network 
activity  with  weighted  polling  on  certain  circuits  that  are 
terminated  at  Tl . 


B.   RESULTS 

Figure  16  shows  a  surrmary  of  throus-hput  statistics  fron 
the  experiment.  Certain  results  are  no  doubt  obvious,  but 
the  quantitative  nature  of  output  statistics  validates  prior 
assumptions. 

The  following  obervations  are  noteworthy? 

1.  Allowing  concurrent  activity  on  the  network  greatly 
increases  throughput.  The  number  of  packets  successfully 
transmitted  in  RUNS  22  and  25  was  on  the  order  of  four  tires 
larger  than  the  non-current  runs.  This  question  cf 
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Figure  16. 
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concurrency  ^^as  significant  implications  to  radio  ^road- 
cast  svsters.  For  instarT:'e,  what  would  "be  the  advantages 
rained  in  the  ^acket  Radio  Network  if  terr.inal  radio  output 
power  were  reduced  so  that  the  terrrinal  could  f^nly  tal>  to 
its  nearest  neighbor  rather  tnan  the  entire  network?  '^his 
situation  could  allow  sirultanecus  transmission  of  pac':ets 
without  the  threat  of  collision.  Also,  a  nult iplexin?^  scherre 
within  the  network  could  allow  concurrent  activity.  These 
types  of  considerations  could  he  modeled  easily  with  the 
appropriate  rrodi  fi  cations  to  the  Petri-Vet  ^raph. 

2.  Increasing?  the  frequen'^y  of  pollin.T  on  selected 
circuits  increases  the  throughput  of  those  circuits.  The 
reader  should  note  the  numoer  of  packets  received  at  Tl  in 
HUNS  23,  24,  26,  and  27.  T^UNS  24  and  27  show  a  slight 
increase  "because  certain  circuits  destined  for  terminal  Tl 
were  polled  more  frequently.  This  situatic^  '^ould  easily 
reflect  the  assignment  of  more  time  slots  to  certain 
priority  suhs crih^rs  in  a  TDMA  scheme.  Again  this 
modification  was  performed  simply  by  restructuring  the  input 
file  to  the  Petri-Net  simulator. 

3.  The  reader  will  note  that  the  total  throughDUt  ir  the 
non-concurrent  runs  is  largely  the  same  regardless  of  the 
hish  load  -  low  load  factor.  This  is  because  the  system  is 
basically  "saturated"  during  non-concurrent  activity  at  both 
high  and  low  loading.  Although  the  user  mie-ht  desire  to 
improve  throughput  by  generating  more  messages  and  trying  to 
force   them  into  the  system,  the  network  will  e-ive  the  same 
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results  because  it  is  already  operating  at  full  rapacity. 

4.  A  visual  inspection  of  the  output  as  ?*TN22  executes 
reveals  that  the  systeiT;  is  essentially  operatin?  at  r;eak 
efficiency  un'ier  rnaximum  load.  The  viewer  will  notice  that 
the  "buffers  at  every  location  are  frequently  filled  to 
capacity  but  seldor  are  overflowing. 
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VII.   RICri^M'g'MrA.TIONS  AMD  CCfJCLUSIO'lS 

A.   RICO^^^EMDATIONS 

The  pote'^tial  exists  for  si?nl  fi  CcT.  t  follow-on  work  to 
this  thesis,  "^ajor  topics  for  future  wcrV:  include  the 
f ollowir?: 

1.  The  development  of  a  language  to  lescrihe  r.etworlcs, 
and  the  inclusion  in  tne  software  of  e  "front-erd"  rros-rar 
that  would  make  the  input  file  less  cumhersome.  The  prc^^ram 
could  "be  static,  like  a  cor^'nil'=r,  or  intercctive,  writte'-  to 
query  the  user  atout  a  number  of  "basic  network  parameters. 
"For  instance:  How  many  nodes  do  you  desire  in  the  network? 
What  are  the  paths  of  traffic  from  source  to  destination?  To 
you  wish  to  allow  concurrent  or  non-current  activity?  "he 
software  would  take  the  user  responses  to  such  parameters 
and  construct  the  input  file  from  the  responses. 

2.  A  statistics  gathering  package  should  he  written  to 
collect  and  collate  vital  network  parameters  as  the 
simulator  is  executed.  Such  a  package  would  keep  a  running 
total  of  such  items  as: 

a.  average  number  of  packets  at  a  node 

b.  average  number  of  packets  on  a  circuit 

c.  percent  use  of  a  circuit 

d.  average  time  d^lay  between  transmission  and  reception 
along  each  fix^d  route 

e.  number  of  messages  lost 
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f.  rurrber  of  ressages  which  successfully  reach 
iestinaticn . 

These  statistics  could  be  fo^rriatted  and  displayed  hy  a 
post-processor. 

3.  As  Dreviously  described,  the  addition  of  rardcrrness 
to  the  sirrulator  mi^ht  be  considered  desirable,  and  ,  if  so, 
the  proper  rrodif ications  could  be  added. 

4.  As  the  system  approaches  "production  status",  the 
entire  question  of  n^odel  validation  needs  to  be  addressed 
carefully,  f^uch  could  and  indeed,  has  been  written  on  the 
subject  of  how  to  deronstrate  your  simulation  is  accurate. 
[10]  As  in  most  simulations  there  is  a  tradeoff  between  the 
degree  of  complexity  represented  in  the  model  versus  the 
largeness  of  the  network.  If  a  network  is  small  or  if  only  a 
small  segT-^nt  of  the  network  is  modeled,  the  degree  of 
detail  -"an  be  great.  If  the  network  is  very  larg°,  however, 
the  data  storage  capability  might  not  allow  the  same  level 
of  detail. 

There  were  two  constraints  to  validation  posed  in  this 
work.  First,  the  memory  capacity  of  the  PrP-ll/?*2  was 
stretched  to  the  limit  on  the  larger  runs.  The  mi  ni-'^ompu  ter 
offers  128, '^^^  bytes  of  memory  which  are  partitioned  into 
thirds.  This  sives  any  one  user  129/3  or  42.6  Z  bytes  of 
memory.  The  gra-nhics  programs  approached  and  then  ex-^eeded 
this  bound  before  the  work  was  completed.  This  forced  the 
division  of  one  program  into  two  separate  programs  of  3£K 
each.  The  file  sizes  for  the  outT)ut  files  from  the  Petri-N'et 
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si'^ulator  are  also  very  lar^e.  The  larger  cf  the  inrut  files 
produced  cutout  files  on  the  order  of  3'70K  bytes.  Ti^ure  17. 
shoves  the  relationship  "between  numter  of  r.odes  in  the 
Petri-iN'et  versus  the  si7e  of  the  output  files.  In  orcer  to 
ma'-ce  rlaims  of  simulation  acuracy  hased  on  real  world 
networks,  more  nernory  is  needed. 

It  should  he  added  at  this  point  that  limitation  of 
rremcry  caused  changes  in  the  ^raphi'^s  display  pro^rars  ana 
in  the  overall  organization  of  the  software.  The  -Dotential 
exists  in  the  actual  ?etri-Net  simulator  (written  in  fcrt'-an 
and  discussed  in  Appendix  A)  for  the  execution  of  Petri-'^'ets 
of  well  over  a  thousand  places.  If  the  user  does  not  require 
a  graphics  output  frorr  this  software  package,  then  larger 
networks  can  "be  simulated  on  the  PIP  11/72. 

Secondly,  the  networks  that  were  of  most  interest  to  the 
authors  are  largely  experimental,  unpro^-en  technologies.  The 
A.utodin  II  network  is  ^ot  yet  operational  and  no  stctisti'^s 
are  available  for  validation  purposes.  The  JTII?  technology 
is  likewise  not  established  operationally  and  mary  of  tne 
system  characteristics  are  classified.  Pack='t  radio,  which 
form*=d  a  good  deal  of  background  for  the  simulation,  is 
still  in  its  infancy.  Also,  packet  radio  e^^^T^loys  a  random. 
channel  access  scheme  which  is  contrary  to  the  deter^r-i^iistic 
nature  of  the  Petri-N'et  simulator. 

""because  these  are  new  technolo^^ies ,  new  routins*  and  flow 
control  algorithms  and  a  host  of  different  kinds  of  nrotc^ol 
a^e  presently  being  developed.  It  is  difficult   to   model   a 
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syste'"  that  he's  -^rt  reached  its  Droductio^  state,  "^ather 
than  'bein?  con'^erned  about  modelin?  a  particular  netwcr> 
that  is  still  in  a  process  of  cha^^^e  and  the'^.  tr/in.-:  to 
prove  t^e  simulaticr  valid,  it  seened  v/iser  tc  leave  the 
models  in  a  nore  general  state,  "^y  erecntinf  a  variety  of 
different  input  files,  the  siTulations  der^onstrate  the 
feasibility  of  future  validation. 


E.   COMCLUSIOMS 

The  conclusions  of  the  authors  are  fourfold: 

1.  First,  cor  put  er  corrTunica  ti  on  networks  can  oe 
meanin^f  ^-'lly  Todeled  with  the  use  of  Petri-Nets.  The 
background  research  to  this  thesis  discovered  no  previous 
work  which  employs  Petri-nets  in  the  manner  described  in 
this  pap«r. 

2.  Se<"ondly,  Petri-\'et  models  of  networks  can  be 
executed  and  displayed  effectively  on  a  color  graphics 
terminal.  The  results  of  such  a  simulation  are  more  easily 
understood  than  the  common,  hard-copy  outputs  produced  by 
most  analytical  or  queuing  theory  simulations.  The  color 
graphics  output  also  could  have  considerable  educational 
value.  Again,  background  research  uncovered  no  insta'^ce  in 
which  Petri-Mets  were  displayed  and  executed  en  a  color 
graphics  terminal. 

3.  Thirdly,  and  perhaps  most  imnortantly ,  the 
implementation  of  such  a  modeling  techniQ_ue  in  a  production 
environment  as  a  predictor  of  systen  performance  app=>ar5 
feasible. 
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4.  Fourthly,  there  appears  to  be  considerable  benefits 
to  encouraging  future,  carry-on  work  in  the  subject  -ratter 
of  this  thesis. 


RELATIONSHIP  BETVE?::^  NOISS  ANT  EILE  SIZE 


F 
I 

L 
E 

S 
I 
Z 

E 


400K 


:00K 


2'30K: 


i0eK 


0^ 


100 


200 


302 


400 


MUr^.BEE  OE  PETRI-'^ET  NODES  IN  THE  INPUT  FILE 


Figure  17. 
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APPENTIX  A  -  USER  IN  STP/JCTICNS  FC?.  TH3]  PETHI-MiT  S^FTVA^I 

A.   riTFCrUCTICN 

This  chapter  is  written  to  desTi'^e  certain  procedures 
and  synta?:  peculiar  to  the  simulation  software.  Assuring 
that  an  interested  student  or  faculty  memher  is  ^criewhat 
familiar  with  the  theory  and  structure  of  Petri-^Iets.  the 
instructions  in  this  section  will  allow  hin  to  apply  the 
sirulation  and  graphics  output  to  his  pa^ticula-  rodelinr 
pro'bl'^'r. 

Fi^'ur°  18  shows  the  various  '^omrtonents  of  the  entire 
software  package,  the  program  source  code  sizes,  the 
progranrrin?  langua^re,  and  the  output  files.  The  reader 
should  refer  to  this  fi':^ure  as  he  reads  the  instructions  in 
this  appendix. 

1?.   THF  INPUT  7ILE 

The  input  file  written  by  the  user  contains  all  of  the 
infornation  necessary  to  uniquely  describe  the  Fetri-Met 
model.  This  file  is  read  by  the  fortran  f4p  program  named, 
"simulator".  The  input  file  must  be  named  "RUM7X,  where  11 
can  be  any  number  from  ei  through  99,  There  ar"  three  main 
divisions  of  the  file, 

Part  I      Places 

Part  II     Transitions 

Part  III    Marking 
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SOFTVAHT    METHOrOLOGY 
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Figure    18. 
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Appendix  3.  shows  a  sarrnle  in^out  file.  The  reader  should 
refer  to  this  erar^ple  as  he  reads  the  f  ollov/i  r.? 
instruction? . 

1  .      Places 

""he  fi^st  line  of  the  file  specifies  the  total 
nurriher  of  places  to  be  read  in.  ■Be<3:inni  Hq'  on  lire  nuTber 
two,  the  names  and  locations  of  the  places  are  listed.  The 
following  forrrat  applies: 

Place  ^are    ....  X-ccrdinate  ....  Y-cordinate  ....  Plot  Flag 

Ti-e  place  naj-e  rust  be  less  than  1?  characters  long. 
Only  the  first  two  characters  will  be  displayed  as  a  label 
on  the  graphics  terminal.  There  are  unique  instructions  for 
labeling  places  in  the  multi-routing  version.  These  will  be 
discussed  later. 

The  first  letter  of  the  nane  specifies  the  tyne  of 
figure  that  will  be  displayed.  The  letter,  "t",  idertifies  a 
"terrinal"  and  will  appear  as  a  ci^'cle  on  the  output  screen. 
The  letter  "s"  identifies  a  "station"  and  will  appear  as  a 
rectangle  on  the  screen.  The  letter  "P"  identifies  a 
"repeater"  and  will  be  displayed  as  a  truncated  triangle. 
Input  and  output  queues  can  be  represented  by  placing  ^r.  I 
or  "o"  as  the  first  character  of  the  place  rare.  These  nodes 
are  displayed  as  small  rectangles,  larp-e  enough  to  contain  a 
two  dis-it  "unber.  Nares  may  begin  with  letters  other  than 
those  listed  above.  They  will  not,  however,  be  displayea  to 
the  screen. 
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After  the  nane  is  listed,  on  the  sa-e  lire,  the 
screen  location  of  the  place  is  specified  hy  r"=ans  of  an  x, 
y  coordinate  systerr.  The  x  and  y  values  are  in  the  ran^e  of 
0-511,  with  the  (0,7)  point  located  at  the  top,  left-hand 
corner  of  the  graphics  display  unit. 

The  third  iten  of  information  in  the  "■nla''<=s"  line 
is  a  "plot  on/off"  entry.  The  user  will  freouently  have 
places  identified  in  the  Petri-Net  which  are  necessary 
control  elements,  out  which  do  not  need  to  "be  disnlayel  on 
the  output.  A  value  rf  ' l"  will  cause  the  place  tc  he 
displayed  with  its  lahel.  A  value  of  "c"  is  used  for  listing 
places  which  are  not  displayed  to  the  output  screen. 

2.   Transitions 

After  every  place  in  the  Petri-\'et  is  listed  Cone 
line  per  place),  the  transitions  are  listed.  As  before,  the 
first  line  spe-^ifies  the  total  numher  of  transitions  tc  "be 
read  in. 

Then,  the  transitions  are  each  listed  in  a 
three-line  format  as  follows: 

Transition  N'are...X  Coordina  te  .  .  .  Y  Coordinate  ..  .Fl  ot  Flag 
Places  into  Transition 
Places  out  of  Transition 

Transitions  are  named  "TRXX",  followed  hy  their  i. ,  y 
coordinates,  and  a  "l"  or  "d"  to  indicate  whether  they  are 
to   be  displayed  to  the  screen.  The  second  line  concerns  the 
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input  to  the  transition. 

The  first  field  of  this  line  s^erifies  the  tctal 
nur'ber  of  inputs,  and  the  follovirs'  nunhers  indicate  which 
places  enter  that  transitic.  The  nunhers, 
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1 A 


for  irstance,  Indicate  that  three  places  are  inputs  to  this 
transition.  The  particular  places  are  identified  hy  their 
ir>piicit,  line-nurrber  ordering  as  entered  in  the  list  of 
places.  In  this  example  the  three  places  are  the  8th,  11th, 
and  14:th  places  entered  in  the  input  file. 

The  third  line  of  the  transition  entry  concerns  tne 
outputs  fror  that  transition.  The  forrat  is  identical  to 
that  of  the  line  above,  i.e.,  the  nun>5ers 


indicate  that  the  transition  fires  to  tv;o  outputs,   the   3rd 
and  4:th  places  listed  in  part  one  of  the  input  file. 
Z.      Initial  r^arking 

After  all  the  places  and  transitions  are  listed,  the 
Petri-Net  rrust  "be  given  its  initial  state  of  rrar^'^in^.  The 
initial  placerrent  of  tokens  is  spe^^ified  ty  the  follov;ing 
format : 

^'A?K      Line  ft   of  Place       #  of  Tokens 

Thus,  the  entry  "maPK  3  l"  specifies  that  at  the 
beginning  of  the  simulation.  Place  3  (the  third  entry  in  the 
list  of  TDlaces)  is  marked  with  one  token.  Several  places  may 
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be   rrarked    initially,    but    each   parking      requires      a      separate 
line. 

Fvery  line  in  the  input  file  begins  in  the  fiT-st 
column.  To  not  indent  the  beginnin<e  character  of  the  line. 
The  fields  within  each  line  rrust  be  separated  by  one  (or 
more)  blank  spaces.  The  final  line  of  the  input  file  is  the 
corrmand    ";?HI)". 

4.      Execution 

Vhen  the  user  completes  the  input  file  he  should 
exit  fror  the  edit  r'ode  and  is  now  ready  to  execute  the 
prOi^ram  'sirrulator'  by  typing  '  simulator  .  out "  .  The  program 
will  ask  hir"  which  inriut  file  he  wishes  tc  read,  er^d  the 
user  responds  by  typing  "RU'^'IXX"  fthe  file  he  previously 
created)  and  a  <cr>. 

C  .   THE  OUTPUT  FILES 

The  prograrr  "simulator"  produces  six  se-oarate  output 
files.  When  RUN01  is  entered  into  "simulator",  files  narred 
RUN01A.  ,  PUN^IB.  RUM21X,  RUN31Y.  and  RUN21Z  are  produced.  The 
files  suffixed  with  <  through  C  are  formatted  files.  Files  X 
through  Z  are  unformatted.  Files  A  and  X  contain  the 
essential  data  structures  that  have  been  read  in  "simulator" 
from  the  input  file,  "l^iles  ?  and  Y  contain  the  markings  for 
each  place  at  successive  time  frames  which  will  anpear  on 
the  graphics  output.  Files  C  and  Z  contain  information 
concerning  which  links  or  transitions  fire  at  any  particular 
time  frame  and  are  used  to  highlight  present  activity  on  the 
screen.  The  graphics   display  programs,   written   in  "c"  , 
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require  unformatted  input  files.  The  forrratted  files  are 
necessary  for  the  user  to  validate  that  correct  input  data 
is  reachinf*  the  graphics  prograr,  and  to  troubleshoot  when 
locating  a  probler.  ExaTpies  of  these  files  are  contei'^ed  in 
Appendices  C  throut-h  E. 

D.   USE?.  OPTION'S 

1.  Choice  of  Programs 

After  the  prcgrarr  "simulator"  has  executed  the  input 
file,  the  "c"  orcgrams  read  the  output  files  and  disolay  the 
results  nf  the  simulation  to  the  screen.  At  this  point  the 
user  has  several  options  concernins-  the  method  of  display. 

There  are  two  separate  ■orograms  the  user  can 
select — "transgraph"  and  "linkgraph".  Py  executing 
"transgraph"  the  viewer  will  be  ahle  to  observe  the  nodes  of 
the  netvor^^  together  with  their  associated  transitions. 
"Linkgraph"  does  not  display  the  transitions,  but  links 
nods-to-ncde  in  the  common  way  that  communications  networks 
are  most  frequently  represented.  For  simple  networks  or  to 
explain  the  basic  working  of  Petri-Nets,  the  user  will 
probably  desire  to  see  the  transitions.  "Transgraph"  will 
only  run  with  less  than  Idd  Dlaces.  Tor  more  intri<"ate 
networks  that  contain  several  hundred  "olaces  and 
transitions,  the  "linknode"  program  is  necessary  to  avoid 
confrestion  on  the  screen, 

2.  User  Cuestior^s  and  Pesporses 

After  selecting  which  program  to  run,  the  user  is 
given  a  series  of  questions  from  the  CHT.  Question  one  asks 
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the  user  to  select  which  incut  file  he  wishes  to  execute.  He 
responds  v.'ith  the  cormand  RUN  X.  "^or  instance,  if  the  input 
file  na'red  RUN'21  has  been  executed  "by  "simulator",  and  the 
user  wishes  to  see  tbe  results,  he  enters  ?UN21X  in  r'esponse 
to  question  one.  (Numerous  files  may  "be  waiting  in  the 
users'  directory  which  can  he  called  in  for  display.) 

Ouestion  2  asks  the  user  if  he  wants  to  view  the 
data  structures  of  the  program.  3y  entering  a  "l",  the  data 
structures  will  he  printed  to  the  CHT.  A  "2"  will  move  on  to 
the  next  Question  without  viewing  the  d.=  ta  structures. 

Question  3  asks  the  user  which  of  three  versions  of 
the  program  he  wishes  to  see.  Version  1  displays  the  marking 
of  tokens  in  the  conventional  Petri-Net  fashion,  with 
nunhers  printed  at  the  center  of  the  places.  Version  2 
represents  tokens  "by  single,  yellow  hexes  printed  inside  the 
nodes.  These  hexes  are  designed  to  represent  "packets"  of 
information  in  the  packet  switching  concept.  As  previously 
descrihed,  each  node  has  tne  capacity  to  hold  seven  packets. 
If  the  number  of  packets  goes  over  seven,  a  red  overflow 
number  appears  beside  the  saturated  plac°. 

The  third  version  is  the  ''ulti -routing, 
multi-destination  version.  Version  3  uses  color  in  a  unique 
way.  because  packets  may  be  originati'^g  at  different  nodes 
and  traveling  to  several  destinations,  the  linking  channels 
require  two-way  transmission.  The  granhics  display  is 
color-coded  to  highlight  this  information.  Packets  traveling 
to  a  particular  place  are  colored  to  match  the  label  of  that 
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place.  For  instance,  when  a  green  "box  appears  in  the 
networlc,  the  viewer  can  trace  its  progress  to  the 
destination  whose  label  is  displayed  in  green.  Jr.  Version  3 
( rnult  i-rout in^)  ,  a  packet  orisinatinp?  at  a  certain  node  er.'i 
destined  for  another  r;arti'"''Jlar  rode  '^a/  take  different 
paths  to  arrive  at  the  destination. 

The  user  et  this  point  must  select  one  of  the  three 
versions  "by  entering  a  "l",  "2",  or  "3"  followed  hy  a  ^cr>. 

Question  4  asks  the  user  to  select  one  of  the  three 
C-enisco  graphics  terminals  in  the  C3  lab  on  which  the  output 
will   a Drear.  Correct  entries  to  this  ouery  are  "0",  "l",  or 
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The  fifth  question  asks  the  user  if  he  desires  a 
tiTe  Dause  of  two  seconds  duration  hetweer  tiTe  frares  of 
the  simulation.  If  he  desires  the  capability  to  look  closely 
at  each  network  snapshot,  he  enters  a  "l".  If  not,  he  should 
enter  a  " ?■'  and  the  simulation  will  run  without  pauses.  This 
gives  the  viewer  more  of  a  "real-time"  impression. 

-At  the  end  of  this  final  question,  the  screen 
displays  the  initial  condition  of  the  network.  *fter  noting 
the  initial  condition,  the  user  should  type  a  carriage 
return  to  continue  execution. 

If  the  user  has  tyoed  a  "l"  in  response  to  question 
5,  he  also  has  the  ability  to  indefinitely  suspend  execution 
of  the  program  at  any  time  frame.  He  ca'^  irterrupt  the 
program  by  typing  a  "BR\"  from  the  CRT  keyboard.  After 
studying  that  particular  snapshot  of  network  status,  ne   may 
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continue  norrral  execution  "b/  typin^:  a  carria«5='  return. 

This   interrupt   does   not   v/or^-c   if   tn^  prCf^rar  is 
executin,?  without  pauses.   Typin??   two   consecutive   "-?J''s" 
will  enahle  the  user  to  exit  the  pro^rar  entirely. 
3.   The  "?ighli  g-hti  ng"  Feature 

The  linJ^in?:  algorithm  in  "both  "t  ranse-raph"  ana 
"linkgraph"  draws  lines  in  a  dark  blue  color.  The 
highlighting  feature  in  "both  progrars  changes  the  blue 
cornecting  linlc  color  to  bright  yellow  on  those  links  which 
are  carrying  traffic  at  any  particular  tine  frame.  This 
feature  perfor'^s  in  the  following  sequence.  (1;  The  link 
lights   up   at  the  point  where  the  future  action  will  occur. 

(2)  The  packet(s)  in  question  rroves  fror  one  end  of  the 
highlighted  link  to  the  other.  (3^  The  highlight  rerrains  on 
the  link  to  eTphasize  where  the  action  occurred,  "he  user 
will  notice  that  direction  of  movement  on  the  highlighted 
link  is  indicated  by  an  arrow  pointing  in  the  appropriate 
direction.  See  "Figures  19  and  7.i , 


E.   UNICU5  INSTHUCTICMS  FOR  VFRSICN  3: 

In  order  for  the  user  to  irplerrent  the  capabilities  of 
Version  3,  special  n'=^twork  design  information  must  be 
included  in  the  input  file.  This  paragraph  des'^ribes  these 
special  instructions. 

The  simulation  is  structured  to  function  in  a  fixed 
routing  rranner.  That  is,  the  multi-routed  paths  are 
predefined  by  the  user. 
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Fii?ure    22. 


There  can  "be  as  rany  alternate  paths  fror  so^jrce  to 
destination  as  the  us^r  wants  to  in^liide.  Put  on^e  these 
paths  are  ST!«cified  in  the  input  file,  they  do  '-:0t  change 
dynamically  during  execution. 

The  r"ult  i-routin?  feature  is  nade  possible  "by  "stacking:" 
numerous  places  on  top  of  one  another  and  displayin*?  these 
piggy""^a<"^sd  places  at  the  same  coordinates.  In  this  ranner 
the  nodes  appear  on  the  screen  as  a  single  place,  although 
in  reality  they  may  he  "buried  seve'^al  deep. 

As  the  total  networv  is  conceptualized  "by  the  user,  he 
must  "bee-in  "by  mappin,?  out  all  origins,  all  destinations  and 
all  relay  nodes.  Every  node  becomes  unique  to  a  particular 
path.  For  instance,  a  simple  case  would  be  to  send  a  pa^-ket 
from  T9  to  T5  (see  Figure  21.)  by  two  different 
routes — Poute  1  s-oes  through  Rl  and  Poute  ?  s-oes  through  P?. 

In  this  case  T9  and  T5  would  be  "stacked"  tvc  deep.  The 
routes  are  T9-P1-T5  and  T9-P2-T!?.  because  they  are  plotted 
at  the  same  point,  the  terminals  appear  as  a  single  node. 

The  "header"  information  to  perform  this  routine  is 
contained  in  the  name  of  the  place.  In  Version  3,  every  node 
that  will  be  displayed  to  the  screen  '^ust  be  assigned  a 
seven  unit  name  in  the  input  file. 

The  first  unit  of  the  name  specifies  the  type  of  fisrure 
to  be  displaye-^  ("t",  "s",  "^",  "l",  "o"  as  previously 
explained).  The  second  unit  specifies  the  color  that  the 
name  will  be  printed  in.  This  number  is  derived  from  the 
"oarticular   color   table   (  16  colors  are  in  a  color  table  ) 
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that  is  >3ei''g  used  by  the  graphics  pro^rar.  The  '^clor  cf  the 
label  nust  rcrrespond  to  the  color  of  the  pa^Vcts  hounl  for 
that  route's  destination.  Units  ?  and  4  of  the  rarre 
designate  the  route  number  that  the  node  lies  upon.  Route 
nurrbers  are  arbitarily  ^iven  by  the  user  and  utilized  for 
his  own  identification  purposes.  Unit  5  designates  the  color 
of  the  packet  that  will  travel  along  that  particular  route. 
Every  node  on  that  route  have  the  same  color  designator.  The 
packet  color  of  the  route  is  deterrined  by  the  destination 
of  that  route.  Units  6  and  7  cf  the  name  specify  how  many 
nodes  are  stacked  at  that  location.  Places  that  are  stacked 
must  be  listed  together  in  the  input  file. 

An  example  of  this  7  unit  name  might  appear  as  follows: 

T205419 


"Field  1  designates  that  a  circle  will  be  drawn. 

Field  2  specifies  that  the  label  will  be  displayed  in 
color  number  2  of  the  program's  color  table. 

Fields  3  and  4  show  the  place  on  route  number  05. 

Field  5  ensures  that  every  packet  which  passes  through 
this  place  will  be  displayed  in  color  number  4. 

Fields  6  and  7  specify  that  places  are  stacked  19  deep 
at  this  coordinate. 

As  the  program  executes,  the  stacking  algorithm  totals 
all  the  packets  which  are  located  at  a  ^articular  stacked 
location  and  displays  that  total  number  of  boxes  in  the 
appropriate  colors. 
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0 

97 
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0 

98 

A9 
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0 
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0 
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0 
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0 
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0 
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0 
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A32 

A33 

A3a 

68 

TRl 

2  1  56 

1  23 
TR2 

2  2  58 

1  13 
TR3 

2  13 

1  2a 
TRa 

2  3  62 

1  la 
T«5 

2  la 

1  39 
TR6 

2  a  66 

1  25 
TR7 
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1  ao 
TRfl 

2  5  70 

1  18 
TR9 
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1  a7 
TRIO 

2  6  7a 
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TRl  1 
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1  aa 
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1  a2 
TR18 

2  5a 
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76 
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88 
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220  200  1 
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330  160  1 

375  320  1 

100  100  0 
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280  200  1 
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50  300  I 
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181 

1  12 
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TR20 

183 

2  53 

18a 

1  38 

185 

TR21 

186 

2  38 

187 

1  11 

188 

TR22 

189 

2  52 

190 

1  21 

191 

TR23 

192 

2  21 

195 

1  37 

19a 

TH2a 

195 

2  51 

196 

1  36 

197 

TR25 

198 

2  ab 

199 

1  35 

200 

T«2o 

201 

2  35 

202 
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TH27 
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205 
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208 
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215 
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217 
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220 
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223 
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TR3a 
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228 
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229 
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230 

TR36 

231 
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232 
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TR37 
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1  59 
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2  60 
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TR38 
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238 

2  65 

239 

TR39 

2ao 

1  63 

96 
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100  100  0 


100 


530 


98 


525 


102 


100 


106 


loa 
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110 
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iia 
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120 
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56 


58 


61 
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250  1 
535  1 
1  00  0 


100  100  0 


100  550  1 
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100  100  0 
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cp- T"  ■t'.'-o;<r^iiCF.'? 

2 

CC'    SU.^lf. ''-P''<'i.):jCFf? 
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^^    OIPECTORY 

Pinsqraoh 

ran  ST  r aoh 

ransaraoh 

i  n  kq  r aoh 

r  an  ST  r  aoh 

i  nkqraoh 

ransoraoh 

ransTrapM 

ran  sqr aoh 

ransaraon 

r  ansa  r  aoh 

r ansa  raoh 

i  nnqr aoh 

r  ansq  r  aoh 

i  n  kqr aoh 

i  ok/ 1  ransar aph 

1  nlcaraoh 

i  n Koraoh 

i  n  ka  raph 

i  n  <qr  aph 

i  n  kq  raph 

i  n  <  q  r  ,3  p  h 
sifTiulal-or.out 
aov  i  sors 
end 

experiment 
i  nt  ro 
1  i  nea r 
1  i  n  kqr aoh 
nps 

O'jf  1  i  no 
si-^ul  ator.out 
title 
t  ransar aph 


108 


simulator     Page  1     Fri  Feb   8  07:10:27  1980 
FRGGKAf.-  SIMULATOR 


1 

2 
3 
a 
5 
6 
7 
8 

10 
11 
12 
13 

1« 
15 
16 
17 
18 
l"? 
20 
21 
22 
23 
2« 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3a 
35 
36 
37 
38 
30 
40 
ai 
«2 
u3 
ntx 
45 
lib 
iXl 

li( . 

50 
51 
52 
53 
5a 
55 
56 
57 
56 
5«» 
60 


ORIGINAL  VFRSION  OF  THIS  PPCGRAM  (PWOGRAM  TESTMT5  WRIfTEN  BY  L.A.COXQ 
r^OCIFIED  TO  OPERATE  OM  UNIX  (POP  11/70)  RY  S .  C .  JENU INGS  &  R.J.HARTELa 
PPOGfcAM  SIVULATOR  READS  USEP  INPUT  FILE  AND  PRODUCES  6  OUTPUT  FILES 


VA INLINE 

CALL 

INIT 

CALL 

INPUTl 

CALL 

DU^'PPP 

CALL 

W0VENET(150) 

CALL 

EXIT 

END 

SUfcROUTINE  INIT 

INIT  OPENS  USER  INPUT  FILE  &  CREATES  6  OUTPUT  FILES 

F^Af'l  STORES  The  input  FRE  RUN.. 

F^A^«2  STORES  THE  FOR'-'ATTED  INPUT  DATA  STRUCTURES RUN. .A 

FNAy3  STORES  I^iF  FORVATTtO  ITERATIONS  OF  THE  NET'.-.ORK  -  RUN..B 

FNA-'ii  SU'^ES  THE  FOR'-'ATTFD  LINKS  OF  THE  NtT/jQRK RUN..C 

FNA^S  STORES  The  UNFUt^MATTEO  GRAPHICS  INPUT  PUN..X 

FMAi^b  STORES  THE  UIjEOR'-'A  T  TED  GRAPHICS  ITERATIONS PUN..Y 

FNAM7  STOFES  THE  UHFQR'^  AT  IE  D  GRAPHICS  STATES RUN..Z 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


FNAMl 
FNAM2 
FNAM3 
FNAMa 
FNAH5 
FNAM6 
FNAM7 


COMMON/ US RF ILC/FNAMl  (6)  ,FNAW2(7) ,FNAM3(7) ,FNAMa(7) ,FiJAM5(7) ,FNAM6(7)a 
1  FNAM7(7) 

CC'-^f-iON/EVENT/JEVENT  (a00,6)  ,NXTEVT 

rO^"•^ON/TPANS•/ITRA^;S(y00,7),NXTTRN,IINTR,IISTOPE(100) 
BYTE  NAMES 

CC'-"'ON/NAME/NAMESf  4  000)  ,NXTNAM 
CO'-"-'ON/IOTAB/IOTAWL(aOOO)  ,NXTTRE 
1000  FORMAT(*  INITIALIZING  PROGRAM') 


1002 

2007 
2000 

2001 


2006 
2002 

200« 


TYPE  1000 

FORMATf'  BEGIN  TE ST -GR APH-NE T ' ) 

TYPE  1002 

TYPE  2000 

FORMAT   ('  «*♦->  INPUT  FILE? 

ACCEPT  2001,  FNAMl 

FORMAT  (hAl) 

FNAMl (6)  =  0 

OPEN  (UNIT  =  1,  NAME 

GO  TO  2004 

TYPE  2002,  FNAMl 
FORMAT  ('  ERROR  OPENING  FILE  ',X6A1) 
GO  TO  2007 
DO  2005   1=1,5 
FNmM2(I  )  =  FNAMl (I) 
FNAM3(i)  -    FNAMld) 


NAME  MUST  bE  ENTERED  AS:  RUNOl 


RUNRo 


FNAMl,  TYPE  =  'OLD 


ERR 


2006) 
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61 
62 
63 

65 

66 

67 

6fl 

69 

70 

71 

72 

73 

7a 

75 

76 

77 

78 

79 

80 

51 

82 

83 

8a 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9a 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

lOfl 

109 

1  10 

111 

112 

113 

lia 

115 

116 

117 

118 

119 

120 


FNAMl (I ) 
FNAMI ( I) 
FPJAMl  (I  ) 
FNAMl (I ) 


=  0 


=  0 


=  0 


=  0 
=  'Z 
=  0 


INITIALIZATION  COMPLETE') 


FNA'^'of  I  ) 
FNAM5( I ) 
F^it'-'bd  } 
FM/!'-17(  I  ) 
2005  CONTlfiUE 
FNAM?(6) 
FMAM2(7) 
FK'^f^3(6) 
F^JAM3(7) 
FfMAMU(6) 
FrjAMq(7) 

FNAr/5(6) 
FMAMS(7) 
F^JAM6(6) 
FNAM6(7) 
F^fA^"7(6) 
FNa^^7(7) 
NXTEVTsl 
rjXTTRN=l 
MXTMAM=1 
rjXTTWE=l 
3000  FUMMAT(' 
TYPE  5000 
RETURN 
END 


Sue»?OUTINE    OUVPPP 

:  OPEMS    FNAM2    <    FNAMa  ^        ■ 

BYTE  FNAMl 

BYTE  F\AM2 

BYTE  FMAM3 

BYTE  FNAMa 

BYTE  Fr;AM5 

BYTE  FfJAf-16 

BYTE  FNA;^7 

COMMQN/USRFlLE/FNA'.il  (6),FMAM2(7),FNAM3(7)  ,FrJAMa(7)  ,  FNAV5  (  7  )  ,  FNAMfe  (  7  )  f 
1  FNAM7(7) 

COMMON/EVEr;T/IFVEfJT  (a00,6),NXTEVT 

COMMO'./TRAfJS/ITPA  JS(ii0O,7),NXTTRN,  1 1 NTR ,  II S  TORE  ( 1  00 ) 
CnMMON/IOTA'J/10TAPL(4  0  00),NXTTRE 
BYTE    NAMES 

COf'tMorv.v^JAMtvrjAyESCaooo)  ,nxtnam 
CPE'J(UNJT  =  l  ,i\)A"-«E=FNAM?,  TYPE=' MEW  ,  INITIALS  I  ZE  =  aGO  00) 

1000  FORMflTC'   NXrEVT=',ia) 

1001  F0P^iAT(5x,6l8) 
WRITE (1,1 00  0)  NXTEVT 
DO  1500  I=1,NXTEVT-1 

1500  i-.'RITEd,  1001)  (lEVENTf  I,J),J=1,6) 

2000  FORMATC/,'   NXTTRN=',la) 

2001  FOPi'^AT(  IX,  718) 
I.R1TE(  1  ,2000)  NXITRN 
DO  2500  1  =  1  ,NXTTRN-1 

WRITEf I ,200  1  )  (  1TRANS(I,J),J=1,7) 
2500  CONTINUE 

3000  FORMAT(/,'  lOTABLE  :  •  ,/,60(  lOI'J,/)  ) 

f.RITECI  ,3000)  (lOTAHL  (T),  1  =  1  ,NXTTRE) 
aOOO  FORMAIC/,'   NAMES:    NXTNAM=',ia) 
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121 
122 
123 
12'4 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13« 
135 
13o 
137 
158 
139 
\H0 
lai 
1«2 
1(43 

lt^^ 
ia5 

146 

ia7 
las 

149 
150 
151 
152 
153 
154 
155 
150 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 


4001  FOR^'ATCX,  lOOAl ) 

l-.PITF  (  1  ,  JOOO)  NxTNAM 

l-.PlTt"(  ]  ,U00  1  )     (■vlAWESCn  ,  1  =  1  /NXTNAM) 
5000    FOR'-'AT  (  IHl  ) 

.•iHITE(l,5000) 

CLOSE  (UMTrl, DISPOSE: 'SAVE') 


5001 


5002 


OP  E  "^  (U^I  T  =  1  ,  DAME  =  FNAM5,  TYPE 
1   FORMr'U.'vFORi'^ATTEO' ) 
i%PITE(l)  (NXTEVT) 

1  =  1  ,fJXTEVT-l 

(1EVEMT(I,J),J=1,6) 

(NXTTRN) 
1  =  1  ,i>JXTTRN-l 

(1TPANS(I,J),J=1,7) 

(NXTTRE) 

(iaTABL(I).I=l,NXTTRE) 

( •vj  X  T  N  A  M  ) 

(NAf^ESCI)  ,  1  =  1  ,NXTNAM) 
CLOSE(U^iIT  =  l,L;ISPOSE='SAVE•) 
RETURN 
END 


SUBROUTI^lE  INPUTI 

COMMON /SCA.\/ I. •.ORDC  15,10)  ,  NUMBER 


NEv'J"  ,  IMITIALSIZE=14000, 


8000 
8001 


1000 


2000 


3000 


DO  5001 
WRITEC  1  ) 
ivRITEd  ) 
DO  5002 
.vRITECn 
wRITECl  ) 
hRITE(I) 
WRITECI  ) 
wRITE(l) 


fcEGIMS'  ) 
COMPLETE') 


FORMAT ('       INPUT 
FORVAT('       INPUT 

FYPE  eooo 

1=0 

CALL  SCANR 

CALL  XINITGR(1,I) 

00  1000  J=1,I 

CALL  INPUTE 

CONTINUE 

CALL  INPUTT 


CONTINUE 

CALL  SCANR 

IF(  lATCHSCl , 'END' ,3)  .EQ.l )  GO  TO  3000 

IFC'-fATCHSt  1  ,  'MARK  '  ,4)  .EQ.l  )  CALL  MARKER 

GO  TO  2  0  00 

TYPE  6001 

CLOSE  (U-vIT  =  l,  DISPOSES 'SAVE') 

RETURN 

END 


SUBROUTINE  INPUTE 

COMMON /EVENT/ lEVENT (400,6),NXTEVT 

BYTE  IwORD 

COMMON /SCAN/ I rtOPD( 15,10) ,NUMB 

JsO 

READ  A  SINGLE  EVENT  LINE  FROM  INPUT  AND 

STURE  IT  APPROPRIATELY 

CALL  SCANR 
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181  CALL  ST0M4M(  1  ,  lEvENKMXTEVT,  n,IEVEr-:T(NXTEVT,6)) 

192 

183  00  1000  i=?,a 

18'J  CALL  xrNTG^?(I,J) 

185   1000  lEVENTCNXTEVT, I+l )=J 

186 

187  NXTEVT=NXTEVTtl 

183  IF(NXTE\/T.GT  .'400)  GO  TO  9000  "" 

189  RETURM 

190  9000  TYPE  9900 

191  9900  FORfATC  EVEfJT/PLACE  TABLF  OVERFLOW) 

192  CALL  EXIT 

193  RETURN 

194  END 
195 

196 

197  SUBROUTINE  INPUTT 

198 

199  CC^MON/ TRANS/ I  TRANS (40 0,7) , NX T T PN , 11  NT R  ,  IISTQRE(IOO) 

200  BYTE  nORO 

201  C0MM0N/SCAN/I/i0R0(15,10),NUM8 
202 

203  1=0 

204  K=0 

205  CALL  SCANR 

206  CALL  XINTGRd,!) 
207 

208  DO  1000  J=1,I 

209  CALL  SCANR 

210  CALL  STONfiMd , ITP4NSCNXTTRN, 1 ),ITRANS(NXTTRN,7)) 
211 

212  DO  2000  L=l,3 

213  LL=L+3 

214  CALL  X1NTGR(L*1,K) 

215  2000  ITRANS(NXTTPN,LL)=K 
216 

217  CALL  SCANR 

218  CALL  STUI0T(NU^^8,  ITRANSCNXTTRN,2)  ) 

219  CALL  SCANR 

220  CALL  ST0T0T(.NUM4,  ITRANS(NXTTRN,3)) 

221  NXT  TRf\  =  NXT  TRN+1 

222  IFfNxTTRN.GT.400)  GO  TO  9000 
225   1000  CONTINUE 

224 

225  RETURN 

226 

227   9000  TYPE  9900 

229   9900  FORWATC'  TRANSITION  TABLE  OVERFLOW') 

229  CALL  EXIT 

230  RETURN 

231  END 
232 

253 

234  SUBROUTINE    STONAM  (  N/<ORO,  NPOINT  ,  KOUNT  ) 

235 

236  C  STORE  STRING  'NwORQ'  FROM  SCANNER  INTO 

237  C  NAVE  TARLE  AND  RETURN  A  POINTER  'NPOINT' 
238 

239  BYTE  I^JORO, NAMES, HLANK 

24  0  C0WM0N/SCAN/Ir'OWD(  15,  10),MUM8 
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2ai 
2a2 
2a3 
2as4 
2a5 
2^6 
2a7 
2^8 
2a9 
250 
2S1 
252 
255 
25a 
255 
256 
257 
253 
259 
260 
261 
262 
263 
26a 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27a 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28  a 
2P5 
286 
287 
288 
289 
290 
291 
292 
293 
29a 
295 
296 
297 
298 
299 
300 


1000 
2000 


3000 


9000 
9900 


1000 


9000 
9900 


CO^^Oi'>J/MAMf:/NAME.S(a00  0)  ,NXTNAM 

DATA  BLANK/IH  / 

DO  1000  1=1,10 

KOUMT=r-l 

IF  (  livJRDCN.VQRD,  I)  .EQ.BLANK)  GO  TO  2000 

CONTINUE 

CONTINUE 

IF(NxTNAM+KOUNT  .GT.aOOO)  GO  TO  9000 

DO  3000  I=1,KCUNT 
NAMES(NXTNAM+I-1  )  =  I;uORO(Mi'iOPD,  I) 

NPOINTsNX TNAM 

NXTNAMrNXTNAM+KOUNT 

RETURN 

TYPE  9900 

FO>^MAT('  NAME  TABLE  OVERFLOW) 

CALL  EXIT 

RETURN 

END 


SUBROUTINE  ST  01 OT (NUMBER, L INK ) 

C  OVMO  N / I  0  T  A  6 / I  0  T  A  B  L ( a  0  0  0 ) , N  X  T  T  RE 

STORE  I'JPUTS  AND  OUTPUTS  OF  TRANSITIONS 
IN  The  lAbLE,  RETURN  THE  LINK 

IF(NXTTREtNUM9ER  .GT.  aOOO)  GO  TO  9000 

K  =  0 

on  1000  1=1, NUMBER 

CALL  XINTGR(I,K) 

J=(NXTThE-1)+I 

I0TA8L(J)=K 

LlNKsNxTTRE  ' 

NXTTRE=NXTTR£+NUWBER 

RETURN 

TYPE  9900 

FOR-^'ATC'  10  TABLE  0VERFL0»V  (TRANSITIONS)') 

CALL  EXIT 

RETURN 

END 

SUBROUTINE  MARKER 

COMMON /EVE NT/I£VENT(«00, 6), NXTEVT 

1=0 

J  =  0 

CALL  XINTGR(2,I) 

CALL  XINTGR(3,J) 

IFd.LT.l  .OP.  I.GT.NXTEVT)  RETURN 

IEVENT{I,2)=J 

RETURN 
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301 
302 
303 

3oa 
305 
306 
507 

3oa 

30<? 
310 
311 
312 
313 
31i» 
315 
316 
317 
318 
31<) 
320 
321 
522 
323 
32a 
525 
326 
327 
328 
329 
330 
331 
332 
333 
33« 
335 
336 
337 
358 
559 

5ao 
5ai 
3U2 
3ii3 
3u« 
3a5 
3a6 
3u7 
3«8 
5U9 
350 
351 
352 
353 
35a 
355 
356 
557 
558 
559 
360 


END 


SU8«0UTirjE  NOVEi^JET  (  NT  IKES) 

;      EXECUTE  THE  PEl^l-NEJ     "NTImES"  OR  STEPS 

CO*-""0'!/TR4rjS/ITRANS(uOO,  7  )  , '^JXT  TRN  ,  I  I  hTR  ,  I  I  STORE  (100) 
COM'"QN/EV£fjT/IEVENT(aOO,6)  ,rgxTEVT 
BYTE  F'NlAMl 
BYTE  FNAM2 
RYTE  FNAM3 
BYTE  FNAMa 
BYTE  FNAH5 
BYTE  FNAM6 
BYTE        FNAM7 

CC*''"'0N/USkFILE/FNAM1  (6)  ,FNAM2(7),FNAN'5(7)  ,FigAf^a(7)  ,FWAM5(7)  ,F^lA -16(7)' 
1  FNAy7(7) 

DATA  ITIME/1/ 

• 
1000  FOR-^AT('  EXECUTING   TI>^E=',ia) 

OPE^(UMT  =  ],^AME  =  F^JAM3,TYPE=•^'F/(',I^^IITIALSIZE=120000) 

OPE"-!  (U'l  I  T=?,N  A  vp  =  Fi<  A  V6,  TYPE  =  'ImE  A  •  ,FORM=  'UNFORMATTED*  » 
1       l.MITIAL5IZE=12Q0OO) 

QPEK'CUf'Jl  r  =  5»Na>ic=Fr^A'''a,  TYPE='NErt  ' 

OPE'J(U'N<I  T  =  a,f>i4KE=FNAM7,  TYPE='N£W'  ,FOR^': 
1       mTIALSI2£  =  12000) 


,IMTIALSIZE  =  12000) 
'UNFORMATTED' , 


,  J=1,IINTR) 
IINTR) 


DO  2000  I=1,NTIMES 

TYPE  1000,ITIVE 

1INTR=0 

CALL  '>^OVE 
106  F0R--iaT(5512) 

i-jRlTE(l,106)  (IFVENT(J,2),J=1,NXTEVT 

aKITE(2)  (IEvE'.T(J,2),J  =  l,rv!XTEVT-l) 
lu7  F0RMaT(I3) 

WPirE(3,107>   IINTR 
108  FOR'^AK  10015) 

rtRITE(5,108)   (IISTQRE(J) 

l'JPlTE(a)  IINTR 

ARITE(a)  (1IST0RE(J),J=1, 

ITr''E  =  ITIME  +  l 

2000  CONTINUE 

CLOSE  (UMT  =  a,0 1  5P0SE=' SAVE  •  ) 
CLOSE ( UNI T  =  5, DISPOSE: 'SAVE* ) 
CL0SE(U'JlT=2,nTSF0SE=*SAVE') 
CL05jE(UNIT  =  1,0ISP0SE='SAVE') 

RETURN 

END 


SUBROUTINE  MOVE 

EXECUTE  THE  f-ET  ONE  STEP 


■1) 
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at  or 

361 

562 

563 

56« 

565 

366 

C 

367 

568 

0500 

369 

570 

571 

0600 

572 

575 

57a 

575 

576 

0800 

577 

578 

570 

580 

581 

582 

1000 

585 

58a 

585 

386 

387 

588 

589 

590 

C 

391 

C 

392 

395 

59a 

595 

596 

597 

C 

598 

599 

aoo 

aoi 

ao2 

ao5 

aoa 

ao5 

ao6 

1000 

ao7 

ao8 

ao9 

aio 

an 

ai2 

ai3 

ai  a 

ai5 

C 

ai6 

C 

ai7 

C 

ai8 

C 

ai9 

c 

a20 

c 
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COM'.'OM/TR4fJS/ITf?AJS('400,7)  ,i>IXTTRrj,IlNTR,IISTORE(100) 

DIMENSION  '/iRKS(aOO) 

IT£3T=0 

CHECK  fiLL  TRa(-SITI0rJS  TO  SEE  rtHlCrt  ARE  ENABLED 

00  0500  1  =  1  ,.\<TTRN-1 

WARKSC  T)=fjAeLED{I)  "• 

DO  1000  I=1,MXTTRN-1 

IFC-iARKSf  I  )  .EQ.O)  GO  TO  1000 

FORVATC'  Dr^'AMIC  CO^JFLICT,  TR<(=',la) 

IF(fjAyL£D(I)  .EQ.l  )  GO  TO  0800 

TYPE  0600,1 

GO  TO  1000 

CONTINUE 

CALL  UNVAPK(I,ITE3T) 

IF (I  TEST.  FT.  1)  GO  TO  1000 

IINTR=IINTH+1 

IlSTOPt(IINTP)sI  . 

CALL  VflRKEVCI) 

CONTINUE 

RETURN 
END 


FUNCTIO'J  NABLfO(NUVBER) 

RETURN  1  IF  TRANSITION  a  'NUMBER'  IS  ENABLED,  READY 
TO  FIRE.   ELSE  RETURN  0. 

COMMON/ TRANS/ I  TRANS  (a  00,  7)  ,NXTTRN 
CO'-'"ON/FVENT/IEVENT  (a00,6),NXTEVT 
COV'-iO.-j/IorAS/TOTAHLfaOOOfNXTTRE 

CHECK  LIST  OF  INPUTS  TO  SEE  IF  ALL  ARE  MARKED 

MARK=0  / 

IPT  =  I  IRANS(fJ'iMBER,2)  / 

K0UNT=IGTA9L(IPT)  / 

on  1000  I=IDT+1 , IPT+KOUNT  / 

NEVEMsIOTAeLd)  ' 

IF(IEVE.«iT(NEVENT,2).&T.0)  MARKr^>ARKfl 
CONTINUE 

NABLED=0 

IF(KOUNT  .EQ.h'ARK)  NABLED=1 

PETURN 

END 


SUBROUTINE  Uf' V  ARK  (NUMBER  ,  I  ERROR) 

UNWARK  (IE.  DECREMENT  THE  NUMBER  OF  TOKENS 

ALL  OF  THE  INPUT  EVENTS  TO  TRANSITION  «  'NUMBER' 

RETURN  IEPROP  =  0  UNLESS 

ONE  FVENT  IS  A  MULTIPLE  INPUT  OF  IHE  SAME 
TKAfiSITION  AND  WE  DONT  HAVE  ENOUGH  MARKERS. 
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ator 

U2\ 

C 

iiZZ 

C 

a23 

c 

i42a 

a25 

^426 

^37 

a28 

a29 

^50 

iJ31 

^32 

a33 

a3« 

^35 

il3b 

<437 

1000 

«38 

a39 

aao 

2000 

aai 

a«2 

a'43 

3000 

44a 

445 

44b 

447 

448 

449 

450 

451 

c 

452 

c 

453 

c 

454 

455 

456 

457 

458 

459 

460 

461 

462 

1000 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

3001 

475 

476 

477 

c 

478 

c 

479 

c 

480 

c 
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'.VHE^J     THIS    HftPPEMS,     REPLACE    ANY    REMOVED 
TGf-EMS    AND    RETURN     IERR0R=1. 

CO»-iMON/EvENT/IEVENrfa00,6),NXTEVT 
COM'1ON/TWA;jS/ITwa\S(a00,7)  ,NXTTRN 
CO''>'*^0;m/IOTA3/IOTA'3L(4000).,NXTTRE 

TPT  =  ITHa.MS(^JU-<eER,2) 

KOUNr=IOTABL(IPT) 

IERROR=0 

DQ  1000  I=IPT+1 , IPTtKOUNT 

NEVENT=iaTABL(I) 

J=I 

IF\,ENT(r^FVE''n,2)  =  IEVENT(NEVENT,2)-l 

IFC  lEVE'-iT  (NE\«EMT,2)  .LT.O)  GO  TO  2000 

CONTINUE 

RETURN 

CONTINUE 

on  5000  I  =  IPTi.l,J 

r-jE\/£K'T=IOTaBL(I) 

ItvErjT('IE>/£NT,2)  =  IEVE^T(rjEVENT,2)tl 

IERR0R=1 

RETURN 
END 


SUBROUTINE  markE^*  (NUWPER) 

V.ARK  ALL  OUTPUT  EVENTS  OF  TRANSITION  a     •NU'-IBER' 

CO'^MQ-g/EVENT/IEVE  ^T  f400,6),NXTEVT 
Ca'-"^iOW/TR&i-jS/ITRA>JS(400,7),fJXTTRN 
COm-iq:j/iota3/IOTABL(4000),NXTTRE 

ipt  =  itpa;'JS(nu^per,3) 

K0UNT=IUTA6L( IPT) 

DO  inOO  I=IPT+1 , IPT+KOUNT 

NEVENTsIOTASLd) 

IEvE'-lT(NEVENr,2)  =  IEVENT(NEVENT,2)  +  l 

RETURN 

END 

SUBROUTINE    SCANR 

BYTE     I//ORO,  ISCIBLANK 

CUv.MON/SCAN/IwORDt  15,  10),  NUMBER 

BVTE    NHUFFR 

C0MM0N/SCANl/NbUFFP(80) 

DATA  ISC/ 1h;/ 

DATA  IBLANK/IH  / 

FOR-'AT  (80A1  ) 

Rf AD(  1  ,0001  ,EN0  =  999o,ERR  =  9O99)  (N8UFFP(I) , 1  =  1 ,80) 

IP01NT=1 

SET  POINTER  TO  FIRST  CHARACTER  IN  THE  SUFFER 

NO.N  PROCESS  THE  FIRST  15  TOKENS  DELI'^HED  BY  EITHER 

A  BLANK  (OR  'MULTIPLE  BLANKS)  OK  A  SEMICOLON, 
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a8l 

«82 
U83 

asa 
U95 
48b 

a87 
088 
<489 
U90 
^91 
«92 

a93 

«95 

496 
«97 
498 
U99 
500 
501 
502 
503 
SOU 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
53« 
535 
536 
557 
538 
539 
540 


00  0002  NUM3ER=1,15 

IFLaG=0 
C      SET  I-'JOPDCNU^flE^,  X)=IfiLANK  (SET  WORD  TO  ALL  BLANKS) 

00  000  "5  1  =  1,10 
0  00  3  I.-.ORDf  f--'Jf>'B£R,  n  =  IBLAMK 
C       START  SCA.-gNING  LINE  FROM  POINTER  ON  TO  FIND  NON-BLANK 

K0U'JT=1 
C      "KOUNT"  KEEPS  TRACK  OF  THE  NO.  CF  CHAR.  IN  THE  TOKEN 

00  0004  KPOINT=TPOINT,80 

IF(NBUFFfi(KPOINT)  .NE.IBLANK  .AND.  NBUFF R ( KPO I  NT ) . NE . I SC J 
1  GO  TO  0005 

IF(IFLAG.EQ.O)  GO  TO  0004 
IFCIFLAG.EQ.l)  GO  TO  0006 

0005  CONTINUE 
IFLAG=1 

1  WORD  (N'JMBER,K0UNT)=N8UFFR(K  POINT) 
KOUNT=KOUNTtl 

IF (KOUNT. GT. 10)  GO  TO  0006 
0004  CONTINUE 

0006  CONTINUE 

C      ENH  OF  TOKE;-  FOUND,  RESET  SOME  POINTERS 
IPOlNTrKPQINTf 1 
IFCIPOINT.GT.SO)  GO  TO  0010 

0002  CONTINUE 
C      END  OF  9ASIC  TOKEN  GETTING  LOOP 

0010  NU'^HEP  =  NUM8ER-1 

RETURN 
9999  CONTINUE 
C      EMD  OF  FILE  OR  I/O  ERROR  DETECTED 
R908  FORMAK"  EOF  OR  ERROR  ON  SCANNER  INPUT  FROM  UMT  1') 

TYPE  9998 

NU'^'RERsO 

RETURN 

END 


SU9I<0UTINE  XINTGRCN'.VOPD,  I  VALUE) 

C  CONVERT  THE  ENTRY  IN  "IrtOPD"  TO  INTEGER 

C  RETURN  INTEGER  "IVALUE" 

BYTE  IWORO 

CONDON /SCAN /I  WORD ( 15, 10), NUMBER 

BYTE  TSTRNG 

Ol^'ENSION  TSTPNG(IO) 

BYTE  IBLANK 

DATA     IBLANK/IH    / 

DO    0001     1=1,10 

KOUNT=I 

TSTRNG (I )=IW0P0(NW0RD,I) 

IF  (IrtOHO(N/iORD,  I  )  .EQ.IBLANK)    GO    TO    1000 
0001     CONTINUE 
1000    CONTINUE 

K0UNT=K0UNT-1 

2004    FnPMAT(X, lOAl ) 
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5al 
5«2 
503 
5aa 

5a6 
5a7 
5^8 
5uo 
550 
551 
552 
553 
55U 
555 
556 
557 
558 
559 
560 
561 
562 
563 
56a 
565 
566 
567 
568 
569 
570 
571 
572 
573 
57a 
575 
576 
577 
578 
579 
580 
581 
582 
583 
58a 


2005 


200c. 


2007 


0001 


F  0  R  '-1 A 
DO  20 
J=l  1- 
K=(KO 
TST9ii 
L=10- 
OG  20 
TST^N 

rtPTTt 
CLOGh 
OPF^C 
REAO( 
CLOSE 
RETUR 
END 


T(X, 
Oo  I 
I 

U'JT  + 
G(J) 
KOUN 
07.  I 

Gcn 

(UNI 
UlvIT 
2,20 
(UNI 
N 


1110) 

=  1  ,KOUNT 


1)-I 

=  TbT 

T 

=  1,L 

=  IflL 
=  2,rj 
OOa) 
T  =  2, 
=  2,N 
05) 
T=2, 


RNG(K) 


ANK 

AviE='  ISTORE'  ,TYPE='WEvJ' 

(TSTRNGf I),I=1,10) 
DISPUSE='SAVE' ) 
A'^E='  ISTORE'  ,TYPE='OLO' 
IVALUE 
DI5P0SE='DELETE'  ) 


INITIALSIZE=20) 


FUMCTIO*^  MATCHS(NUM8,STRING,NCHAR) 

THIS  FuIjCTION  DETERMINES  IF  SCANNER  TOKEN 
I.'vQPD(fJUr^'3)  "BATCHES  THE  CHARACTERS  IN  "STRING" 
AT  LEAST  FOR  ThE  FIRST  "NCHAR"  CHARACTERS. 

IF  THERE  IS  A  MATCH,  IT  RETURNES  THE  INTEGER  "1 
NO  -lATCH  RETURNS  "0". 

BYTE  IwORO 

COMMON /SCAN /I  WORD (15, 10>, NUMBER 

BYTE  STRING 

Dl-IENSION  STRINGdO) 

MATCHS=0 

DO  0001  I=1,NCHAR 

IF(  I;•JOPD(tJU^'B,I),^JE.STRI^JG(I))  RETURN 

CONTINUE 

IF  YOU  GET  HERE,  THEY  ftERE  THE  SAME... 
MATCHS=1 
RETURN 
END 


END  OF  PROGRAM  SIMULATOR 
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1 

2 
5 
a 
5 
6 
7 
8 
9 
10 
11 
12 
13 
11 
15 
16 
17 
IP 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3a 
35 
3b 
37 
3ft 
39 
OO 
41 
U2 
US 
an 
a5 
lib 
a7 
46 
49 
50 
51 
52 
53 
S4 
55 
5b 
57 
58 
59 
60 


/♦♦♦***** 


PROGRAM     TRANSGRAPH.C 

STEPHEN    C.    JENNiP.'GS    JC91    USMC 
ROBE»T    J.    HARTEL    CS91    USA 

■/JRITrE^J    FALL    QUARTER     1979 

^JA\/AL    POSTGRADUATE     SCHOOL 

MONTEREY,     CALIFORNIA 


*****»*»/ 
********/ 
********/ 
»*******/ 
********/ 
***•****/ 
********/ 
********/ 
*****«**/ 


/*♦         EXTERNAL    DECLARATIOfJS         ♦*/ 


/**♦  LITERALS  ***/ 


ade  f  i  ne. 
*de t  i  ne 


header 
Di  c  t  ures 
bounds 
limit 


4 

50 
100 
500 


/♦♦♦  STRUCTURES  *»*/ 

Struct  { 

i  n  t  c  t  r  1  1  ; 

i  nt  namer t  r  ? 

int  marker; 

i  nt  xcord; 

int  V  c  o  r  d ; 

int  D 1 ot  ; 

i  nf  1 engt  h ; 

>  f  i 1  el  [bounds)  .   *hp  1 


St  rue  t  < 

i  n  f  Ctrl?; 

int  t  rnot  r ; 

int  i  nt  rn ; 

int  out  f  rn ; 

int  Kxcori: 

int  vycord ; 

int  t  roD  tot; 

int  t  rn 1  en ; 

>fi)e2  tbounds) #   *bD2; 


f*    data  structure  information  on  net  nodes 


*/ 


/♦  store  control  C^ar  not  used  in  orogram  ...  */ 

/♦  index  to  names  array */ 

/♦  initial  marker  state  of  the  network  ......  */ 

/*  X  cordinate  of  place */ 

/*  y  cordinate  of  clace */ 

/*  whether  or  not  olace  is  to  be  clotted  ....  */ 

/*  lenath  of  name  associated  with  olace  .....  */ 

/*  Dointer  into  data  structure  */ 


/*  data  structure  information  on  transitions.  */ 

>  *  s^ore  control  char  not  used  in  nrogram  ...  »/ 

/*  index  to  names  array */ 

/*  Doinfer  to  inputs  fcr  a  transition  »/ 

/*  ooinfer  to  outputs  for  a  transition  ......  */ 

/♦  X  coroinafe  of  transition */ 

/*  y  cordinate  of  transition  »/ 

/*  whether  or  not  transition  is  to  be  olotted  */ 

/*  lenath  of  name  associated  with  transition  */ 

/*  pointer  into  data  structure */ 


119 


t  pans^raph  .c 


Page  2 


Fri  Feb   8  05:01:00  1980 


61 
62 
63 
6« 
65 
66 
67 
68 
69 
70 
71 
72 
73 
Iti 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8a 
65 
86 
87 
88 
89 
90 
91 
92 
93 
on 

95 
96 
97 
98 
99 
100 
101 
102 
103 
10« 
105 
106 
107 
I  08 
109 
110 
1  1  I 
112 
113 
lia 
115 
116 
1  17 
118 
119 
120 


/♦**     INTEGERS    ***/ 

nt  al»a?»a3»g'i; 

nt  buf f er [Dounds 1  ; 

n  t  c  n  t  r  1  f  1  ]  ; 

nt  ctroverflowJ 

nt  d^ltcolop; 

nt  fdfbuf; 

nt  fdobuf; 

nt  f i r i nq [bounds]  ; 

n  t  i  C  t  P  ; 

nt  i  event  s» 

n  t  i  f  1  a  q ; 

nt  iotbMHmitl; 

nt  kci  C  t  UPeS  t 

nt  1  inkrbl  [1001  [«)  7 

nt  nbPPlot; 

nt  nbyt es  [2]  ; 

nt  over f lo-tbl  [1001  [21 

nt  set ; 

nt  sf 1 aq  (20)  ; 

nt  tb) c t  r ; 

nt  uniqueto!   [  1 00)   [U]  ; 

lit  veps; 


/*»*  CHARacTERS  »**/ 

char  fbuf  [201 ; 

char  gbuf  [20]  ; 

cHar  na'nes  [limit); 

char  scrnj 


each  data  structure  ...  */ 

each  fpame  is  read  */ 

a  e    transitions  f i ped  ..  */ 

s  overflow  status  */ 

r  indicating  overflows  .  */ 

r  PUN..Y  files  */ 

p  RUN..Z  f i les  */ 

fiped  places  are  pead  .  */ 

a  function */ 

isDlayable  nodes  «/ 

teppupt  mechanism  •/ 

put  pelationshio  »/ 

erations  of  the  network.  */ 

en  nodes  locations  .....  */ 

of  disolayed  nodes  ....  */ 

for  data  structures  ...  */ 

store  overflow  locations  */ 

ac  graphics  screen  .....  «/ 

er  use  by  trnliteC)  ....  •/ 

ion  3..peset  conditions.  */ 

ons  foP  vepsion  5  ......  */ 

on */ 


/*  buffer  to  store  name  of  second  file  */ 

/*  buffer  to  store  name  of  thipd  file........  */ 

/*  charactep  array  for  node  labels  */ 

/*  oDtion  vapiable  for  display  to  the  scpeen.  */ 


/* 

q1 oba 1  St  opaqe  f op 

/* 

buffeP  into  which 

/* 

variable  containin 

/* 

^-eeo  track  of  node 

/* 

a  de fault  coIop  fo 

/♦ 

file  descpiotor  fo 

/* 

file  oescpiptor  fo 

/♦ 

storane  into  which 

/* 

countep  passed  to 

/* 

number  of  non-  i  d 

/* 

countep  for  the  in 

/* 

forms  i nout-t o-out 

/* 

counter  f OP  t  Me  it 

/* 

vePsion  1  &  2  scpe 

/♦ 

counter  for  numoer 

/♦ 

st ope  count  fields 

/* 

data  St  puc  t upe  to 

/* 

usep  selected  conp 

/* 

saves  f 1 ao  f op  1  at 

/* 

a  count  ep  f op  vePS 

/* 

peset  t  abl e  1  ocat  i 

/« 

user  se 1 ect ed  opt  i 

/**        FUNCTION  VAIM       »«/ 


m  a  i  n  (  }  { 


extepn  puhout()» 

ini  t ( ) ; 

de  tepmineC); 

di  sn 1 av  (  )  ; 

se 1 ec  f  (  )  ; 

ppera  re ( 2  )  ; 

drawnoie-f  1  ; 

D 1  aces ( ) ; 

t  rns 1 i  r k ( ) ; 

i  mapk ( ) ; 

s  i  qna 1 (?  f  pubout ) 

mapk  i  no (  ) > 

qn  f  i  n  i  ( ) J 


/*  declape  'pubout'  globally  */ 

/*  pead  input  file */ 

/*  v*»pifv  if  usep  wants  to  see  data  stPuctupe  */ 

/♦  disolav  input  to  crt  »/ 

/*  select  version  of  simulation  !i  aenisco  set  */ 

/♦  orf'vare    aenesco~con  pac  *  ■^ 

/*  nraw  networlr  nodes  on  ccnpac  */ 

/*  vepifv  corpect  nooes  opawn */ 

/*  function  displays  netwoplt  transitions  ....  */ 

/*  staptinc4  status  of  netwopk  rackets  */ 

/♦  sets  'bWK'  as  inteppuDt  */ 

/*  successive  iterations  of  netwoPk  flow  ....  ♦/ 

/*  closing  out  opaohics  facilities  */ 


/*«  PROGRAM       FlIiiCTIONS  **/ 
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121 
122 
123 
12a 
125 
126 
127 
123 
129 
130 
131 
132 
133 
13« 
135 
136 
137 
158 
15'' 

mo 
lai 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
160 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 


pause  (pepoi  '1)  { 

/*  function  necessary  as  sleeoO  not  corppatible  with  signalC)  */ 
i  n  t  1  »  j  »  k  ; 

printf("***>>interruot "); 

fop("i=0;i<c3epoid;i+  +  )  { 
f or( j=0; j  <400; j ♦♦)  { 

for(k  =  0;k<iOOO;if  +  *)  { 

> 
} 
} 

pri  nt  f  (''*«*>>wai  t "); 

ret  urn ; 
} 

ruboutC)   ( 

/*  function  enables  the  'brk*  key  as  the  interrupt  signal  •/ 
char  halt; 

space(2) ; 

pr i  nt  f 

("*♦*>>>  received  s i gna 1 . . . f rame  number  Xd...<ret>  to  continue  \n"» 

(i  f laat2)); 

pr  i  nt  f 

("***>>>  fop  terwination  of  proaram. . . t ype  *brk'  from  console  Xn"); 

while  ( (hal t=Qetchar() ) !='\n' )   { 
/*   do-nothing  loop   */ 

> 

si  goal (2»  rubout ) ; 
return; 
> 


soace (returns)  { 
i  nt  i  ; 

for  (i=0;  i<returns;  i**)  < 
print  f ("\n") ; 
) 
return; 
> 


ini  t  ()  { 

/*  function  ooens  unformatted  file 
int  ^» hu fc t r , count f fd» i » j ; 
char  cbuf  1201 ,c»  f ; 


R  initializes  start  condition  */ 


soace ( 2  )  ; 

print  f  ("***->TPfJSr,kAPH     ILLUSTPATfS    PFTf-IUtT     S  T '^DL  A  T  I  ON    MQDtLS"); 
soace (2 ) ; 

print  f  ("***->fMF9     fhF     N'Aiv,£     qF     Tht    FILE    TO    HF    PWOf.E  SSEO .  .  BU  T    \n") 
orinffC  M?TF     THiT     THIS    FILfc    ^'(IST    HE    AN    lir.FOP'.Al  TED    FILE     \n") 

printff"  PKJOniJCFD    AS    A    RESULT    OF    EXECUTI^'G    s  i  mu  1  at  o  r  .  ou  t     \n") 

printfC*  THE    LAST    LETTER    OF    rthlCH    MUST    END    IH    LETTER     'X'     \n") 

error  :  srace ( 2  ) ; 
printfC  "***->•*); 
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181 
182 
183 
18<J 
185 
186 
187 
138 
189 
190 
191 
192 
195 
194 
195 
196 
197 
198 
199 
200 
201 
202 
205 
20a 
205 
206 
207 
208 
209 
210 
211 
212 
213 

2ia 

215 
216 
217 
218 
219 
220 
221 
222 
225 
22H 
225 
226 
227 
22(^ 
22^ 
250 
251 
252 
233 
25« 
255 
236 
237 
258 
239 
2«0 


i=o; 

whi 1 e( fc=getchar( ) )     1=     '\n')     ( 

cbuf  [ n  =c ; 

cciuf.[i )  =  '\0' ; 

buf c t  r  =  i ; 

f or ( j =0 ; j <huf c t p; j ♦+ )     { 

QDuf  (  i  )  =fbuf  [  j]  =ch(jf  [J]  ; 
i f (cbuf  ljl=='X' )     { 
fbuf  (jl ='Y'; 
gbuf  {]\~'l'; 
gbuf  [  j  +  11  =fbuf  [  j  +  n  =  '\0 

j  =buf c t  p; 


) 


fd 

y  f 


=    ooen (cbuf»0); 
(fd    <=    0)     { 

OP i nt f (  "  *  * *->ePPOP  occupred  in  ooening  file, 
soace ( 3) ; 
got 0  eppor » 
i 

if((count  ~    pead ( f o» nby t es » headep ) )  1=  header) 
DP i nt f ( "eppop  occupped  in  nbytes  read")? 

ievents  ~    (nbytesll]  -  1); 

a  1  =  nby t es  CI); 

a  =  (nbyfes  [11 -1) *ia; 

if((count  =  peac)(  f  d»  f  i  1  e  1  »a)  )  !=  a) 

pp i nt f ( "errop  occured  in  filel  read")! 

i  f(  (count  =  p?ad<'fa»nby''eS/hpadep)  )  I=header) 

opintf(''eppor  occurped  in  nbytes  Pead")? 

a?  =  nby t es  [11; 

a=(nbvtes  1 1 ) -1 )*16; 

i  f((count  =  pead(fd»fi le2»a)):=a) 

OP i nt f ( "ePPOP  occupped  in  fi]e2  read"); 

i  f ( (counr=pead( fd»nbvtes»headep) ) l=header) 

opintf("epror  occurred  in  header  read")* 

a3  =  nbytes  111; 

a=(nbyres  [  11 ♦ t ) *2; 

if((count=re«d(fa»iotbl,a))!=a) 

Drin'tf("  error  occured  in  iothi  read"); 

i  f( (count=read( fo/nbvrpSfhesner) ) l=header) 

D r i n t f ( " e r ror  occurreo  in  header  read"); 

a^snnytes  111; 

a  =  nhvtes  til  ♦!  ; 

i  f((counr  =  rean(fo»nap<PS»a))l=a) 

or i n t f (  "er ror  occurred  in  names  read"); 

close(fd) ; 

return; 


,  t  py  aga  in"); 
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2ai 
?a? 
2«3 
2a« 
2«5 
2ub 

?ue 

2a9 
250 
251 
252 
253 
25a 
255 
256 
257 
258 
259 
2b0 
261 
262 
263 
26U 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27« 
275 
276 
277 
278 
279 
280 
261 
2^2 
2&1 
28<i 
2«5 
2f6 
287 
28P 
2P.Q 
290 
291 
292 
293 
290 
205 
296 
297 
29« 
299 
300 


d  e  t  e  r  m  i  n  p  (  )  { 
i  nt  i  ; 
Char  rt,dbuf  120]  ; 

space ( 2 ) ; 

cri  nt  f  ("♦*»->FUNCTinN  'DETEPMINE'  ALLOSnS  THE  USER  \n"); 
orintn"       TO  E^AWIhE  ALL  P^T-IAHY  DATA  STRUCTURES"); 
over:soacef2) ; 
print f ("♦**->IF  THIS  FEATURE  IS  DESIRED  TYPE  1  IF  NOT  0 ,  .  .  . <RET>" ) ; 
soace (2) ; 
or i  nt  f ("***->" ) ; 

i=0; 

whi 1e( (d=aetchar( )) ls'\n' )  { 

dbuf  ti ] =d; 

i  ♦♦ ; 
) 

dbuf  (i) ='\0*; 

i=o; 

whi  )e(dbuf  (i )  1  =  '\0'  )  { 
a  =  abu  f  C  i ]  » 
s  w  i  t  c  h  (  d )  { 
case'O'  : 

scrns'O'; 
break; 
case'l': 

scrns'l'; 

rrint f ("***->USE  CONTROL  Q  rtHEN  SCREEN  FULL"); 
break ; 
def aul t  : 

pr i nt f ( " * **->e i t her  blank  or  invalid  entry"); 
Qoto  over; 
break; 
> 

i  ♦♦; 
> 

return; 
} 

di  spl ay  ( )  ( 
i  n  t  i  ; 

i  f  (scrn  =  ='  1  •  )  ( 

spi»c€  (2 ) ; 

bPl  =  f  i 1 oi ; 

print f ("*•♦->  FTLEl  OATA  STRUCTURE"); 

spflce (?) ; 

rrint'f("ln^pp'1    e     marker     xcord    ycord    plot     length  \n"); 

for  f  i  =C  ;  i  <;il  ;  i  ♦♦  )  < 

rrinrf("::d    \r     '/.ri    \t     *'l    \t     %c>    \t     'id    \r     Xd    \t     2n    \t     \n", 
bDl->ctr)  I  ,pfl->n;^meptr,    bol->f'arker»hrl->«cord» 
hrl  ->vccrd»bpl  ->o)  ot  »bDl->l  enrjth)  ; 

bpl ♦+; 
) 

ppace(2); 

bp2    =    file?; 

print t ("♦**->  FILE2  DATA  STRUCTURE"); 
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301 
302 
303 
30U 
305 
306 
307 
308 
309 
310 
311 
312 
313 

ixa 

315 
316 
317 
318 
319 
320 
321 
322 
323 
32a 
325 
326 
327 
328 
329 
330 
331 
332 
333 
33a 
335 
336 
337 
358 
33« 
3«0 

3m 

3«2 
3a5 
iuu 
3a5 
3ao 
3'J7 
308 
3aQ 
350 
351 
352 
353 
35a 
355 
356 
357 
358 
359 
360 


s  p  a  c  e  {  2  )  ; 

D  r  i  n  t  '^ 

("Infeed    rrnptr   intrn    outtrn   xxcord  yycoPO  trnolot  tpnlen  \n"); 

for  (i=0;i<a2;  i++]( 

onnttCr.d    \t     '/d    \t     Xd    \t     %a    \t     Xd    \t     Xd    \t     %d    \t     %d    \t     \n", 
hD2->ct  r]  2/bo?->t  rnr>r  r»bD2->i  nt  rn»bp2->outt  m, 
bo2->xxcord»bo2->yvcord»bo?->trnDlot»bD2->trnlen); 
bp2+t; 
} 

space (2)  ; 

print f ("»♦*->  I0T5L  DATA  ARRAY"); 

space (2 )  ; 

for(i=n;i<a3;i++){ 

orintfCXd    ",     iotblti]); 
> 

SDace(2) ; 

prints ("***->    NAMES  DATA  ARRAY"); 

scace(2) ; 

f  o  r  ( i  =  0  ;  i  <  a  ^4 ;  i  +  +  )  ( 

ori  nt  f ("Xc", names  til); 
> 
5  D  a  c  e  (  2  )  ; 


return; 
) 


prepare  ( t  yp*»)  < 

/*  function  designates  set,  screen  size  and  color  table  */ 
i  nt  n , t »  y ; 

y  =  o; 

aen  i  SCO  (  set ) ; 

erase () ; 

screen(0.0,0.0,5I1.0,511.0); 

set  mod ( t  yoe  )  ; 
c  o  1  t  a  b  ( )  ; 
c  o  1  o  r  t  (  1  1  ) ; 
for(n=12;n<ia;n++)  { 

CO  1  or (n ) ; 

f  or  (t=f';  t<512;  t +  ♦)  ( 

seqTnt(0,y+t,511,y+t); 

) 
) 
return; 


drannode (  )  < 

/*  fijnction  displays  tyop  K     location  of  network  nones  */ 

c'^ar  c  »  *npt  r  ,  h<3  1  d; 

int  ;5,b,rlrlbl, count, d»entry,h,i,j,ifrl, test, t»y»*z; 

float  s ; 

doub 1 e  sqr t  C  )  ; 

bPl  =  f i lei ; 
a  =  0; 
count  =  1 ; 
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361 

362  whi  1 e( ( test  =  (bDl->naTeDt r)  )  i=0)  { 

363  colorCiaj; 
36^  t<»st  +  +  ; 

365  z  =  inames  [test!  ; 

366  c  =  *z; 
367 

368  "if  (  (b=(DDl->ulot  ))  1=  0)  { 

36"  switc"  (c)< 

370  case  'I': 

371  X  =  (bDl->xcord) ; 

372  V  =  (l-rl->vcord) ; 

373  fop(d=o;d<10;d++)  { 

37a  seamnt  (  x-lb,  vi-2+'d»  x,y  +  2  +  d)  ; 

375  > 

376  1  inkt-bl  (a)  C3]  =1; 

377  break; 

378  case  '0': 

37<»  K  =  (hDl->xcord) ; 

380  Y  =  f ho1->vcord) ; 

381  f  or  (d  =  0;d<1  0;d-t-t)  { 

382  seoTin  t  (  x- 1  6»  y-2-d  »  X  »  y-2-d)  » 

383  ) 

38«           ;  1 inktbl  taJ  t3] =1; 

385  *  break; 

386  case  'R': 

387  ■  X  =  (Dni ->xCord) ; 

388  V    =    (hpl->vcord) ; 
38<>  f  or  (d  =  0;d<31  ;d  +  t)    { 

390  serjmnt 

391  (x-18+d/«,vtl5-d,x+18-d/a,y+15-d); 

392  > 

393  cl  r  IblsM; 

39a  1 abel  (x,y, test ,cl rlbl ) ; 

395  break; 

396  case  'S': 

397  X  =  (bDl->xcord); 

398  V  =  (hoi ->ycord) ; 
3<?9  for  {d  =  0;d<31  ;d  +  +  )  { 

aOO  seTTtnt(x-13,y-15  +  d»x  +  18/y-15td); 

aoi  > 

ao2  i  f (vers  =  =  3)   < 

«03  not r-    Xnames  (t est ♦ 1 ) ; 

aoa  r>o)  n=    *not  r ; 

a05  c I r 1 bl =atoi ( <hol d) ; 

a06  1  ah"?  1  (  X  ,  V,  test- »c  )  r  1  bl  ) ; 

a07  color(l«); 

ao8  ) 

a09  else     { 

aio  ci ribi=i a; 

ail  1  a»^?U  X  ,  yf  r  est  »c  1  rU  1  )  ; 

ai2  > 

ai 3  break ; 

aia  case    '  T  '  : 

mS  X    =    (  bo  1 ->xcord)  ; 

ai6  vr(trl->yCord); 

417  for(k  =  0;k<19  ;<■»•♦)( 

ai8  s=k; 

ai9  i =(x-(sTrt (32a.-s*s) ) ) ; 

apo  j=v*s; 
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iJ21 

il22 

a23 

a2il 

425 

a26 

427 

428 

(429 

430 

431 

432 

435 

434 

435 

436 

'437 

438 

43*' 

440 

441 

442 

443 

444 

445 

44b 

447 

448 

449 

450 

451 

452 

453 

a54 

455 

456 

457 

458 

459 

460 

4bl 

462 

4b3 

46 '4 

465 

4bb 

467 

4o8 

Uo9 

470 

471 

472 

47$ 

474 

475 

47b 

477 

478 

479 

480 


1  =  (  x  +  (sQrt  (32'4.-s*s)  )  )  ; 
searr>nt(i,j,l,j); 


} 


for  (k=0;k<19;kt*)  { 

s  =  ic; 

i  =(x-(sart (324. -s»s)) ); 

)  =  y  -  s  ; 

1 =( *+(sart (324. -s»s) )); 

seamn  t ( i  ,  j  ,  1 »  j  ) ; 
} 
i  f ( vers  =  =  3)   { 

notr  =  ^names  1 1 es t  ♦  1 )  ; 

hold  =  *nDt  r ; 

c  1  p1  bl  =atoi  (lihold) ; 

1 abel  (x, /, test ,cl rlbl  )» 

c  o  1  o  p  ( 1  a  )  ; 
> 
else  { 

cl rl bl =14; 

1 abel  (x, v»  test  »cl rlbl ) ; 
> 

break  » 
def aul t  : 

DPintf("name  not  valid  identifier")/ 
soace  f 2)  ; 
break ; 


> 


1  inktbl  la)  10] =count  ; 

n  nktbl  Cal  [11     =    «; 

1  inktbl  [al  12]     =    y', 

a*  t ; 

) 
count  1 1; 
boi  +  +  ; 
> 

i  f ( veps  =  =  3 )  ( 
en t  py  =  0 ; 

■jniauetbl  (entpyl  (0)=)inkthl  [01  (Oj; 
uniTuetbl  [entpyl  n}=lin<tb1  CO]  [IJ; 
uni^uetbl  (entpyj(21=1inktnl  (01  12] ; 
uniauetbl  (entpyl  [31=1 inktbl  (OJ  (31; 
t  h  1  c  t  p  =  1  ; 
fop(i=0;i<a;ii-  +  )     { 

i^Cuniouecnl  (entpyl  {n==1inktbl  fi+l]  tl]        && 
uniouethl  (entPvJ  (2]==Hnktnl  li+lJ  121)     { 
/  *    do    no  t  T\  i  m    *  / 
> 
else    < 

ent  py ♦  +  ; 

uniauert)!  (entpyl  (01=linktbl  (i+l)  (0); 
uniouethl  (entpyl  ril=linkfbl  (itll  (1); 
unio'jethl  (entpy)  (21=linKtt>l  [i*l)  (21; 
umnuefhl  fentpy)  (51=linktbl  (i  +  l)  (3); 
tbl c t  P  +  +  ; 


> 


> 


> 


nopo 1 ot  =a» 
pet upn; 
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asi 
a85 

ass 
a87 

a88 
a89 
a90 
a9i 

«93 

a9a 

495 
U96 
497 
498 
499 
500 
501 
502 
503 
50a 
505 
506 
507 
508 
509 
510 
511 
512 
513 
5ia 
515 
51b 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 


ol aces  (  )  i 

1  nt  1 »  i 


>  I 


{ 


i  f (strn  =  ='  1  '  ) 
5  o  a  c  e  (  2  )  ; 

orint  M''***->OATA  STRUCTURE  LINKTHL  ") 
soace (2) ; 

f or ( i =0 ; i <nhrD 1 ot » i ♦ + )  < 
♦op(h=0;h<4;h++)  ( 
orintfC'Xd  --", 
} 
soaceC 1 ) ; 


linktbl  (il  [h] ); 


STRUCTURE  UNIQUET8L"); 
{ 


soace (2)  ; 
iffvers==3)  ( 

Drint*('"***->DATA 
soace ( 2 ) ; 

for(j=n;j<tr>lctP  ;}+•»•) 
for(k  =  o;ic<a;ic  +  +  )  < 

or  i  nt  f  ("'i<i    --"/uninuethl[j]  Ck)); 
I  } 

soace(l); 
) 
> 
soacef 2) ; 


return; 
> 


label  (x><»yv»?z»c1bl  ) 
/*  determines 
int  f  f  i ; 
char  a? 


< 

no^e  'anel  olaceTent  in  relation  to  noae  */ 


col  or (c 1 bl) ; 
i*(«x>250)  { 

if(vy>250)  a=M'; 

else  a=*2«; 

) 
else  ( 

if(vy>?S'J)  3=*:^'; 

o  1  s  e  3  =  •  a  •  ; 

} 
f  =  (^r!l->lp-ioth); 

Switch  ( 3 )  { 

cas«*'  I  '  : 

for(i=n;i<?;i*+)  { 

cr^arac((xx»(20t(B*i))),yytl5,na'T'es[z2]); 

) 

break; 
case'2': 

for ( i=n;  i <2; i ♦♦)  { 

charac((xx*(20  +  8*i)),yy-2f<»names[2z)); 
zz**'. 
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5«3 
5aa 
5^5 

5a6 
sal 
5a8 
5a9 
550 
551 
552 
553 
55« 
555 
556 
557 
558 
559 
560 
561 
562 
563 
56« 
565 
566 
567 
568 
569 
570 
571 
572 
573 
STi 
575 
576 
577 
578 
579 
580 
581 
582 
5«3 

5ea 

5R5 
5B6 
5P7 

5Re 

5  BO 
500 
591 
592 
593 
590 
595 
596 
597 
598 
599 
603 


} 

Dreair ; 
case"  J'  : 

f or f  i  =0; i  <?; it*)  { 

ct^arac((xx-(32-(8*i))),yy  +  15,na'T'esCzzl); 

22  +  +  ; 
} 

Dreak; 
case'a'  : 

for  ( i  =0; i  <2;i  +♦)  { 

charac((xx-(32-8*i )),yy-26,name5tzz] ); 

) 


ret  urn ; 
> 


sel ect ( )   < 

i  n  r  i  f  n ; 

char  v,vbufl20]; 

sDace(2); 

orint f ("***->lHERe  APE  3  VERSIONS  TO  THIS  GRAPHICS  PACKAGE  \n"); 
csrinrfC      PLEASE  SELECT  ONE  OF  THE  FOLLO.vRJG  VERSIONS:  \n"); 
aqa 1 n : soace ( 2 ) ; 

1  ...  PETRI-NET  PACKAGE  TYPE  1  \n-); 

2  ...  PACKET  PEPRtSEMTATION  ...  UPE    2  \n"); 

3  ...  MULTIROUTING  PACKAGE  ....  TYPE  3  \n"); 


VERSION 
VERSION 
VERSION 


'\n')     { 


or i  nt  f  (" 
pr i  nt  f (  " 
or  i  n t  ^ ( " 
n    =    0; 
twice:  snac«»  (  2  ) ; 
orinrfC "»**->"); 
n  +  ♦  ; 
i    =    0; 

while    ((v  =  ':etch3r()) 
V  t.  u  ^  ( 1 J    =   V ; 
i  ♦♦; 

vbuftn    =   'vo'; 


i     r    0; 

wHi le(vouf  l\]     :=     '\0'  )        { 
V    -    vDu ■'  ( i  J  ; 
i  f (n  =  =l  )     { 

S-i  tcti  (  V  )     { 
case     ' 1 ' : 
vers    =    1 » 
br<»alr ; 
ca«5e    '2': 
vers    =    2; 
break ; 
case    ' 3 ' : 
vers    =    3; 
break ; 
def aul t : 
o  r  i  n  t  ♦ 

('•»**->incorrect 
qot o  aaa  i  nj 
break; 


■r  s  i  on  try  aqai  nl 
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601 

602 

603 

60« 

605 

606 

607 

608 

609 

610 

611 

612 

615 

6ia 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62« 

625 

626 

627 

623 

629 

630 

631 

652 

635 

63a 

635 

636 

657 

638 

639 

6<40 

641 

6a2 

6a3 

baa 

6a5 

6^6 

6a7 

6«8 
6«9 
650 
651 
652 
653 
bSa 
655 
656 
657 
658 
659 
660 


) 

i  +  +  ; 


} 

el  se 


{ 


switch(v)  { 
cas-?  '  0  •  : 

set  =  0; 

break » 
case  •  1 • : 

set  =  i; 

b  r  e  a  '<  ; 
case  '2': 

set  =  2; 

break ; 
def aul t  : 

or  i  nt  f 

("*♦♦-> ^ ncorrec t  aenisco  Set 

or  i  nt  f 

(  "      set  se I ec  t  i  on 

n  =  i; 

Qoto  t^iceJ 

break; 
> 

i  +  +  ; 


t  ry  aga  in!' 
shoul a    be  0/1  or  2' 


); 


> 


} 

>f(n  =  =n  i 

soace ( 2) ; 
crirtfC***' 
D  r  i  n  t  f  (  " 
c  r  i  n  t  f  (  " 
goto  twice; 


'>NOi-;  SELECT  THE  GE\'ISCO  SET  YOU  '.-JlSH  \n"); 

THE  PHOGRAM  TO  HE  DISPLAYED  TO \n-); 

I-^  C3  LA8  EITHER  SETO,  SETl  OR  SET2  \n"); 


> 

return; 
} 


i  rflar  k  ( ) 
/* 


■narks  initial  state 
int  t>»co)oijr,efa»x»v; 


of  system  by  calling  aoprorriate  function  */ 


bol  =  f i 1  el ; 
dfltco1or=3; 
color(df1 tcolor); 
col our  =  ? ; 
Ct  roverf 1 ow  =  0; 

while  (  f  c=  (bnl ->na'"»Dt  r  )  )  1=0)  ( 
i  f  (  (b=(bol->olot  )  )  !=•■>)  { 
switchfvers)   < 
case  1 : 

i  vers  1 ( ) ; 
brpak ; 
case  2: 

ivers2rcolour); 
oreak ; 
case  3: 

i  vers3 (col  our  ) ; 
break ; 
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6ol 

662 

663 

66a 

665 

666 

667 

668 

669 

670 

671 

672 

673 

67a 

675 

676 

677 

678 

679 

680 

681 

682 

683 

68a 

685 

686 

687 

688 

689 

690 

691 

692 

693 

69a 

695 

696 

697 

698 

699 

700 

701 

702 

705 

70a 

705 

70b 

707 

708 

709 

710 

711 

712 

713 

7ia 

715 

716 

717 

718 

719 

720 


if(dfltco1or;=3)  co1or(3); 
bol ♦♦ ; 


> 


c  o  1  o  r  ( 1  a  )  ; 

ori nta(0, 350. ,a80., "TIME  FRAME  =  1") 

orereadC 1 ) ; 

t  rni i  t9( n ; 

di  so  1  a (  )  ; 

hoidC ) ; 

t  ml  i  te(2) ; 
reset (  1  ) ; 
colore  13)  ; 
ovrflow()J 

orintqCO, 550. ,a80., "TIME  FRAME 
return; 
) 


holdO  { 

i  nt  hoi di  nq; 

suace(2) ? 


s  1") 


suaceic' J  ; 

orint  f  (•'♦♦»->THlS  IS  THE  IMTIAL  STATE  OF  THE  NETWORK  \n"); 
orintfC"       TYPE  <RETUWfJ>  TO  CONTINUE  EXECUTION \n"); 


whne((ho1dinn  =  qptchar())!  =  '\n')  { 
/»  Oo  notnina  loop  */ 

} 
return; 
) 


1  vers  1 n  < 

int  e  r  X  t  y I Z } 

cf>ar  checic; 


e- 

X  = 
V  - 
2  = 

i  f 

) 
e) 


(  bo  1  ->'narker)  ; 
(bDl->xcord) ; 
(bol ->vcordJ ; 
(bo  1  ->namept  r ) ; 

(  (checi<'=names  [z*l)  )  :  =  •  I  •     li&     (chec  l<=names  Iz  +  1 )  )  J  =  '  0  '  )     { 
Drintg(0,x-3.0,51 l.-(y-3),"Xd",e); 

se     { 

if(checlf=na'T'«srz+n=='IM    printa(0,x-ia.0,5ll.-(v*'2),"%d''.e); 
else    nrintqf0,x-ia.0,Sll.-(Y-9),"%d''»e); 


return; 
} 


ivers2(colour)        { 
int    e»x,v»z; 
cnar    cneck; 

e=  (bn  1  ->'nflr  ker  )  ; 
x=(bD] ->«cord) ; 
v=(bol->vcorri); 
z=  (bol  ->na'nent  r) ; 

i f ((check  =  names  (z+n  )  1  =  ' I  •  &&  (check =names  1  z ♦ 1 1  ) 1  =  ' 0 ' 
DCkt2(x,v»«', colour); 


)  { 
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721 
722 
723 
72a 
725 
726 
727 
728 
729 
730 
731 
752 
755 
754 
755 
756 
737 
758 
759 
7ao 
7ai 
7a2 
7a5 
7ua 
7ii5 
7a6 
7a7 
7a8 
7a9 
750 
751 
752 
755 
754 
755 
756 
757 
758 
759 
760 
761 
762 
765 
76« 
765 
7b6 
767 
768 
7b9 
770 
771 
772 
775 
77a 
775 
776 
777 
778 
779 
780 


e  1  se  < 

if(check=names(zi-ll=='r')  Dpintq(0,x-la.o,511.-(y  +  2),"%a"»e); 

else  Drintq(0,x-ia.0,511.-(y-9),"%d",e); 
) 
et upn ; 


ivers5(co'our)  { 

char   keeo, *kpt  p; 

int  a»aa»bfbb»c»cc/cl  r(251  »i  »lc»n»stacl(, total  ix  ,y', 

tot al =0; 
n=l  ; 

x=(bDl->xcord); 
y=  (bo  1  ->vcor(1 )  ; 
a=(bDl->  1  en-jth)  ; 
b=(rDl->narneDtr); 
c=  (bo  1  ->(rar  Iter  )  ; 
total=tot3l+c; 

if(c>0)   ( 

fQr(i=0;i<c;i++)   { 

kotr  =  inames  [b  +  a-2) ; 
keeo  =  *kotr; 
c 1 r (nJ  =atci  C&keeo) ; 
nt  +  y 


} 


> 


kotr  =  Snames Cb+al ? 

keeo  ~    ♦kotr; 

St  ack  =  3toi  (8.keeo)  '• 

i  f (names  [b+(a-l  )1  !  =  '0'  )  { 

it(names[c+(a-l)]=='2')   stack=stack+20; 

else   stack  =  stack  f  10; 
} 


<s''ack-l;i+  +  )   { 

f 

o1 ->1 enqt h  )  ; 
o 1 ->nameDt  r ) ; 
ol  ->'-apkep )  ; 
=  t  ot  =t1  +rc; 
>0)   { 

or  (k  =  o;k<cc  ;•«  +  +  )   < 

kntr    =    Kns'ne5(bb  +  aa-2); 
keep    =    ♦ KPt  r ; 
c  1  r  (nl  =at  oi  ("ikeeo) ; 
n  +  +  ; 


for 

( i  =  0  ;  i 

bol  +  + 

aa=(b 

bo=(b 

cc=(b 

total 

if  (cc 

f 

> 
> 

i  f  (  n  a  ™ 
nckt 

(  X  » V 

col 
) 


> 


es(b  +  n:  =  'I'     <!4    names  fb+n  •  =  •0' )     < 

5 

, total, Clr[l),c1r(21,c1r(5],clr!a],clrf5),clp(6),clrl71, 

oup) ; 
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781  else  { 

782  i  f  C  names  (htl)  =='!')  ori  ntg(0,)r-iu. 0,511. -(y  +  ?),"%1",  total); 

783  else  dp i n to ( 0 , x - 1  a . 0 , 5 11 . - ( y-9 ) , "%d" , t ot a U  ; 
78«      > 

785  return;  •- u - 

786  } 

787  . 
788 

739  Dreread( f 1 aa)  { 


790 
791 
792 
793 
79« 
795 
796 
797 
798 
799 
800 
801 
802 
803 

eoa 

805 
806 
807 
808 
809 
810 
811 
812 
813 
8ia 
815 
816 
817 
818 
819 
820 
821 
822 
823 
82« 
825 
82b 
827 
828 
829 
850 
831 
85? 
833 
SZa 
835 


int  Ducicet  [21  »countffd»fa,i,nbrtrns; 
i  f  (  f  lac3l=3)  { 
if(flag==l)   { 

fd  =  open  (fbuff  0); 

if  (fd<=0)  { 

pr i n t f f " * **->er ror  occurred  in  opening  fd  file"); 

> 

f dfbufsfd; 

fg  =  open  (gbuf»  0); 

if  (fa<=0)  { 

orintf("***->error  occurred  in  opening  fg  file"); 

1 

f dgcu  f  =  f g; 
) 
i f ( (count =read  (fdfbuf»  bucket,  2))i=2)  { 

orintf("***->error  occurred  in  fd  bucket  read"); 
> 
if((count=rea'i  (fdfDuf,  buffer, (ievents*2)))!  =  (ievents*2))  { 

printf("***->error  occurred  in  buffer  read"); 
} 
i f ( (count =reao  (fdaouf,  bucket,  2))l-2)     < 

pr i nt f ( " * **->er ror  occurred  in  fg  bucket  read")? 
} 
i f ( (count =read  (fdgbuf,  cnt r 1 » 2) ) 1 =2 )  { 

or i nt f (  "  *  * *->er ror  occurred  in  cntrl  read"); 
) 
i  f (cntrl  [OJ  =  =  0)  { 

soace (2 ) ; 

pr  i  nr  f  (  "  *  •  *->t  he  last  networtc  state  has  been  achieved"); 

koictures=pictures+i; 

soace (2) ; 
} 
else  ( 

i f ( (count =reaT  (fdgDuf»  bucket,  2))i=2)  ( 

or i nt f (  "  ♦* *~*er ror  occurred  in  bucket  read"); 

1 

nortrns  =  cntrl  [0J*2; 

1  f  (  (count  =roa<  (f-^onuf,  f  i  r  i  m  ,  nh  r  t  rns  )  )  I  =  nbrtrns)  { 
printf("***->error  occurred  in  firing  read"); 

> 
} 


> 

else    { 
cl ose(f dfbuf ) ; 
c 1 cse ( f daou  f  J ; 

) 


856    return; 

837    } 

838 

859 

8U0    stageO     ( 
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6ai 

em 

8«3 
8UH 
BUS 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
85'? 
860 
861 
8o2 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
R«<0 
881 
882 
883 
884 
885 
886 
8^7 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 


if  (icDictijresl=0 
oreread(2) ; 
i  f (Knicturesl=Dicturestl) 

t  rnl i  te( 1 ) ; 

di  sol  a  (  )  ; 

oaose  ( 1  )  ; 

t  ml  i  te(2)  ; 
) 


i^  If  oi  c  t  ures<Di  c  t  ures*  1  )  < 
( 


return; 
} 


irk  i  ng  (  )  { 

/*  function  disolays  successive  iterations  of  the  network  */ 
int  colour,. ->raw/i,Tark,n,X/y; 

bol  =  f  i 1  el ; 
n  =  2; 


/*  fo) 
f or  (ko 

St 

i  f 


) 
i  f 

6r 

df 

CO 
CO 

ct 
fo 


> 

df 

CO 
CO 


lowina  loon  orocesses  ievent  «  data  entries 
ictures  =  0;kcictures<oictures;koictures*-t)  { 
aqe ( ) ; 
(kcictures>0)  < 

respt (  )  ; 

colore  13); 

ovr  f 1 ow ( ) ; 

DrinfqfO, 350. ,480., "TIME  FRAMF  =  Xd",n); 

n**; 

laq  =  koictures; 
aw  =  (DC  1 ->Dt  ot ) ; 
1  t  c  o  1  o  r  =  3  ; 
lor  { jf 1 tcolor) ; 
lour=2; 
r o V  e  r  f 1 ow  =  0 ; 

r  (i=0;  i  <  ievents;  it+)   < 
if  (draw  =  =  1 )  { 
i  c  t  r  =  i  : 
sw  i  t  ch  (  vers )   { 
case  1  : 

ver s 1 ( ) ; 
break ; 
case  2: 

vers2(colour); 
n rea>f ; 
case  3: 

v«>rs3(col  our)  ; 
hreak ; 
> 
) 

i     =     i  c  t  r  ♦  +  ; 

if(fi*ltcolori=3)     cclor(i); 
bn  1  t  ♦■ ; 
araw    =     (bpl     ->    olot); 

1 t col or= 1 4; 
lorfdfltcolor); 
1 ou  r= 1 5; 


each  pass  */ 
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901 
902 
903 

9oa 

905 
906 
907 
908 
909 
910 
911 
912 
913 
9ia 

915 
916 
917 
918 
919 
920 
921 
922 
923 
92q 
925 
926 
927 
928 
929 
930 
931 
932 
933 
93a 
935 
936 
937 
938 
939 
9ao 
9ai 
9a2 
9a3 

9-^4 
9U5 
0U6 
9ii7 
9i»8 
oa9 
950 
951 
952 
953 
95(i 
955 
956 
957 
958 
959 
960 


Drintg(0,  350,  ,aflO.  ,  "TIME  F^^AME 
cause ( 2) ; 
t rnli  te( 3)  ; 
bol  =  f i  lel  ; 


=  y.i",n); 


) 


D  reread ( 3  )  ; 
return; 
> 


ovr  f 1 ow ( )  ( 


1 nt  1 »  X , V 1 


i=0 


tefoverf lowtbl  ti  J  tO)  1=0)  { 
x=over f 1 owt b1 [ i 1 (0) ; 
v=overf 1 owtt 1 [i ] [11; 

Dlock((<-3)»l.,5ll.-(yt28)*l.,(x+10)*l.,511.-(y+20)*l.); 
overf  !  owtDl  f  i )  [01=0; 
overf 1 o-tbl  [i  J  (1 J  =0; 
i  +♦; 


return; 
> 


verslO  ( 

int  e»x»y»?; 

char  check; 


col  o 
e  =  bu 
x  =  (b 
y=  (d 
z=(b 
i  f  (  ( 

) 
else  { 


r(3); 

f  f  er  (  i  ct  r)  ; 

o  1  ->xcord) ; 
ol->ycorrj); 
D  1  ->n3'neot  r  )  ; 

check  =  na'T>es  Cz  +  n  )  1  =  'I  •  8.&  (chec  ksnames  [z  1 1 )  )  !  =  '  0  '  )  { 
Drintg(0,x-3.0,511.-(y-3),"%d",e); 


if(chec'<:=natnes[z-Hl=='I')  rrinta(0,x-ia.C,51  1 
else  orinto(0,x-ia.0,511.-(y-9),"%d'',e); 


(y*2),"r.d",e); 


return ; 
} 


vers2(colour)        ( 

int     'T'r3rit,x»y»z; 
chf»r    cl^PcW; 

X-  {  hD  1  ->xcor'j)  ; 

y  =  (  b  o  1  -  >  y  c  O  r  ri  )  ; 

z=(onl->n3Teotr); 

T  a  r  Ic  =  "^  u  ^  f  9  r  [  i  c  t  r  1  ; 

i  M  (chccif  =n,Tmes  (z+ 11  )  :  =  ' I  '     K^i,     (chec  ksnaf^es  Iz  +  1  ]  )  1  =  '  0  '  )     { 

Dckt2(x,y,-nark-»cotour); 
> 
e  I  se    < 

i  f  C  (checksnames  (z^-ll  )=='!')     nrintq(0,x-ia.0,5ll.-(v+2),"Xd",mark); 
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961 
962 
963 
96a 
965 
966 
967 
968 
969 
970 
971 
972 
973 
97a 
975 
976 
977 
97fl 
979 
980 
981 
982 
983 
98a 
985 
986 
987 
988 
9po 

9Q0 

991 

992 

995 

99a 

995 

996 

997 

908 

999 

1000 

1001 

1002 

1003 

lOOU 

inos 

lOOb 
1007 
1  00« 
1009 
1010 
1011 
1012 
1013 
loia 
1015 
1016 
1017 

loie 

1019 

1020 


else  Drintq(0,x-l«.0,511.-(y-9),"Xd",mark); 


return; 
} 


vers3(cdloijp)   { 

int  3»aa»b,bb,tTark, marks, cl  r  (25)  ,  i,k,n, stack, total  ,  x  ,yj 
char  keep, *kpt  r ; 

total =0; 

n=i; 

x=(hDl->»cord); 

y=(bol->ycord); 

a=fb:sl->1  enqth) ; 

b=(ncl->nqmec>tr); 

mark=t)uffer(ictr); 

tot3l=tota1 tmark; 

i  f (mark>0)   { 

f  or  ( j  =0;  j  <mark  ;  j +•»■)   { 

kotr    =    inames  [b  +  a-23  ; 

tceeo    =    *kot  r ; 

c  1  r  (n)  =atoi  (S.keep) ; 

n  +  +  ; 

} 

\ 

tcot  r  =  &names  Ib  +  aJ  ; 

keeo  =  ♦kotr; 

St  ack=at oi (&keep) ; 

i  f (names  [pt ( a- 1 ) }  !  =  '  0  '  )  ( 

i f (names  (b+ (a-1 ) ) == '2  •  )   st ac k  =  st ac k+20; 

else   stack  =  stack  +  10; 
} 

for(i=0;j<stack-i;j+t)   { 

bDi*+; 

i  c  t  r  ♦  t ; 
aa=CbDl ->1 enqth) ; 
bb= (bol ->nameDt  r) ; 
marks  =  c>u^fer{ictr]  ; 
totalstotal+Tiarks; 
i  i  (marks>0 )        < 

fop(k  =  (i;k<~'3rks;kt  +  )        { 

<ntr    =    \namastbh+aa-2j; 

kePD    =    «  <pt  r ; 

c I r  fnl =atoi (ikeer) ; 

n  +  +  ; 

) 
) 


} 


I  •     i'i    names  (b  +  lJ  1  =  *G'  )     < 


if(nameslb>I] 
PCkt  3 
(«,y, total, clrm,c1r(?),clr(31,clrfn,c1r(  51, c1rfb),clrf7), 

colour); 
> 
else    { 

if  (natreslhtll  ==•!')     Drinta(  0,x-ia.O, 51  l.-(y+2),"Xd'', total); 
else    orinta(n,y-l '4.0, 511. -(y-9),"Xr)", total); 
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10^1 
1022 
1025 

102a 
1025 
102fe 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
103« 
1035 
1036 
1057 
1038 
1039 

loao 
loai 
loa2 

10^3 
10«« 
10a5 
lOab 
10a7 
lOUo 
10a9 
1050 
1051 
1052 
1053 
105a 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
I0o2 
1065 
lOba 
1065 
1  Obo 
1067 
lObft 
I0b9 
1070 
1071 
1072 
1073 
107U 
1075 
107b 
1077 
1078 
1079 
1080 


(x3xis-3)»l.,511.-(yaxis+3)*l.,(xaxist3)*l.,511.-(yaxis-3)*l.); 


( xax 
(  xax 


(  X  ?x 
I  X  3  X 

(  xax 


(  X  3X 

(xax 
(xax 
(xax 


(xax 

(xax 
(xax 
(xax 
(xax 


(xax 
(xax 
(xax 
(xax 
(xax 
(xax 


1  S' 


•3)*1  . 
•3)*t  . 


return; 


oc « t 2 ( X  ax i s » y ax i s / Doi nt , c 1  ass )  { 


swi  tch(Doint ) 
case  0 
break 

C3S*»   1 

b1  ocit 

break 
case  2 

b  1  ocK 

hi  ock 

r.  r  e  a  k 
case  5 

b  1  oc  < 

b  1  oc  < 

bl  OCX 

break 
case  a 

b1  '5C< 

b  I  ocit 

bl  ock 

clock 

break 
case  5 

o1  ock 

n  1  oc  X 

bloc* 

b  I  oc  K 

D  1  oc  < 

break 
case  6 

clock 

bl  ock 

b  1  oc  < 

block 

b  1  oc  < 

bl  ock 

creak 
case  7 

0  1  oc  < 

b]  cc  < 

block 

bl  OCk 

block 

bl  ock 

n  1  oc  K 

break 
def aul f : 

O  V  «»  r  f  1  ow  t  n 
Overf  1  O'ftO 
Ctrovfrflo 
b  1  OC  k ( ( X  a  X 
b  1  oc  X ( ( X  a  X 
b  1  PC  k ( ( X  ax 
h  1  oc  k ( ( X  ax 


is-5)*l . 
i  s-3)  M  . 
is-3)*l. 


is-3)*l. 
is-3)*l  . 
i  s-3)*l  . 
i  3  +  7)  *1  . 


is-3)*l. 
is-3)*l  . 
i  s  -  3  1  *  1  . 
is+7)*l . 
i  s-1 5)*l 


i  s-5)  ♦!  . 
i  s-5)  *  1  . 
i  s-5)  *l. 
i  s  +  7)  *  1  . 
is-13)*l 
is-15)»l 


(xax 

(  X  3X 

Cxax 
(xax 
(xax 
(xax 
(xax 


i  S-3)  *1  . 
is-3)*l  . 
i<?-5)*1  . 
i  s+  7  J  *  1  . 
1  s-1  S)  ♦! 
i  s  -  1  3  )  *  1 

is*  n  •]  . 


1  fc  t  rove 
1  (c  t  rove 
w  +  ♦ ; 

i  s-5)»l  . 
is-3)*l  . 
i  s-3) »1  . 
i  s  +  7)*l  . 


,511 
*51  1 


,51  1 
,51  1 
,511 


,5!  I 
,51  1 
,511 
,51  1 


,51  1. 
,511. 
,511  . 
,51  1  . 
.,51  1 


,511.' 
,511.' 
,51  1  .■ 
,51  1.' 
..511 
.,51  1 


,51  1  . 
,511. 
,51  1  . 
,511. 
.,511 
.,511 
,51  1  . 


(vaxis+3)*l.,(xaxis+31*l.,511.-(yaxis-3)*l.); 
(yaxis-7)*l.,(xaxis+3)*l.,511.-(yaxis-13)»l,); 


•(yaxis<-3)*l.,(xaxis  +  3)*l.,511.-(yaxis-5)«l.); 
■(yaxis-7)*l.,(xaxis+-5)*l.,511.-(yaxis-13)*l.); 
•(yaxis+-l3)*l.,(xaxis  +  5)*l.,5ll.-(yaxis*7)*l.); 

•(yaxis+3)*l.,(xaxis+3)*l.,511.-(yaxis-3)*l.); 
•(/axis-7)*l.,(xaxis+5)*l.,511.-(yaxis-15)*l.); 
•(vaxis-»'13)*l.,(xaxis*5)*l.,5ll.-(vaxis  +  7)*l.); 
•(yaxis«-5)*l.,(xaxis  +  13)*l.,511.-(yaxis-3)»l.); 


fyaxis*3)*l.,(xaxis+3)*1.,511.-(yaxis-3)»l.); 
■(yaxis-7)*l.,(xaxis-t-5)*l.,51i.-(yaxis-13)*l.); 
■(yaxis+13)*l.,(xaxis+3)*l.,511.-(yaxis+7)*l.); 
■(yaxis+3)*l.,(xaxis*13)*l.,5ll.-(yaxis-5)*l.); 

-(yaxis-t-3)»l.,(xaxis-7)*l.,51l.-(yaxis-3)*l.); 


■(yaxis-t-3)*I.,(xaxis  +  3)*l.,511.-(yaxis-3)*l.); 
•(yaxis-7)«l.,(xaxis+3)*l.,511.-(yaxis-13)*l.); 
■(yaxis+13)*l.,(xaxis+3)*l.,51l.-(yaxi5*7)*l.); 
•(yaxis+3)»l.,(xaxis+13)*l.,511.-(yaxis-3)*l.); 

-(yaxis+5)*l., (xaxis-7)*l .,51 1 .-(yaxis-3)»l.); 

-(yaxis*13)*l.,(xaxis-7)*1.,51l.-(yaxis+7)*l.); 


•(vaxis+3)*l.,(xaxis+3)*l.,511.-{yaxis-5)*l.); 

•(yaxis-7)»l.,(xaxis+i)*l.,511.-(yaxis-15)*l.); 

■(vaxis+15)«l.,(xaxis*3)*l.,511.-(vaxis+7)*l.); 

■(yaxis«'5)*l.,(xaxis*13)*l.,511.-(vaxis-3)*l.); 

,-(yaxis*3)*l.,(xaxis-7)*l.,511.-(y<<xis-5)*l.); 

,-(vaxis+13)*l.,(xaxis-7)*l.,511.-(yaxis+/)*l.); 

•(yaxistl3)*l.,(xaxis+13)*l.,511.-(yaxis+7)*l.); 


r  f low) 
rf low! 

,511  .- 
,51 1  .- 
,511.- 
,51  l.- 


( 0 )  =  x  a  X  i  s  .* 
( 1 J  =yax  i  s ; 

(yAxis  +  3)»l.,(xaxist3)*l.,5n.-(yaxis-3)*l.); 
(yaxis-7)*l  ., (xaxis  +  3)*l .,51 1 .-(yaxis-13)*l .); 
(yaxis+13)*l.,(xaxis+3)«l.,511.-(vaxis+7)*l,); 
(yaxis+3)*l.,(xaxis+13)*l.,511.-(yaxis-3)*l.); 
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b1'OCic((xa)(is-l3)*l.,511.-(yaxis  +  3)*l.,(xaxis-7)*l.,Sli 
Dloci<:((>o<is-13)»l.,511.-(yaxis  +  13)*l.,(xaxis-7)*l.,51 
blocic((<axis  +  7)»l.,511.-(yaxis+li)*l.,(xaxis-H3)*l.,51 
colorCclass); 
df 1 t  col op  =  c lass; 

DPinto(0,xaxis-3.0,511.-(y3xis+??)+5.0,"%d",point-7); 
oreak ; 


oei 

082 
0B3 
08^ 
085 
086 
087 

088  ) 

089  return; 

090  } 
091 
092 
093 

094  ockt SCxaxi Sfvaxi s» total ,cl »c2,c3,c^*c5,c6,c7,c1 ass)   < 
095 

096  swi  ten  (total  )   { 

097  case  0: 

098  break; 

099  case  l: 

100  color  (cl  )  ; 

101  b1ock((xaxis-3)*l.,511.-(yaxis+3)*l.,(xaxis+3)*l.,51I. 

102  break; 

103  case  2: 

lOa  color(cl); 

105  blocK((xaxis-3)*l.,511.-(yaxist3)*l.f(xaxis+3)*l.,511. 

106  colorCc''); 

107  Dlock((x3xis-3)*l.,511.-(yaxis-7)*l.,(xaxis+3)*l.,511. 

108  break; 

109  case  3: 

110  color(cl); 

111  bloc<(fxaxis-3)*l.»511.-(vaxis  +  3)*lw(xaxis  +  3)*l.,51l. 

112  color(c2); 

113  D)ock((xaxis-3)*l.,511.-(yaxis-7)*l.,(xaxis*-3)*l.,511. 
lia  color(c3); 

115  blocK((xaxis-3)*l.,511.-(yaxis+13)*l.,(xaxis*3)*l.,5ll 

116  orea<i 

117  case  «: 

118  colorfcl ) ; 

119  block((x3xis-3)*l.,511.-{vaxist3)*l.,Cxaxis+3)*l.,511. 

120  color(c2); 

121  Dloci'((xaxis-3)*l.»511.-(yaxis-7)*l.,(xaxis  +  3)*l.,5n. 

122  co1or(c3); 

123  olock((xaxis-3)*l.,5n.-(yaxis  +  13)»l.,(xaxist5)*l.,511 
12a  co^orWi): 

125  h1oct(fxaxis+7)*l.,511.-(ya<is+3)*l.»(xaxis*13)*l.f511 

12b  Dreatc ; 

127  case    5: 

128  colorfcl)  ; 

129  r.1oc<((xaxis-3)*l.,51l.-(Y3xi5  +  3)*l.,(xaxis*3)*l.»511. 

130  cp1or(c<'); 

131  b1ocK(Cxoxis-3)*1.,511.-(vaxis-7)«l.,(xaxis«-3)*l.,511. 

132  cnlorTc^); 

133  hIock((*axJs-3)*l..511.-(ya«is^l3)*l.,(xaxis+3)«l.,Sll 

1  Iti  color(cJ)  ; 

135  Mockf(xq«is  +  7)*l.,Sll.-(yaxis  +  3)*l.»(xaxis+13)*l.,5ll 

136  co)or(c5); 

137  bloc^C(xaxis-15)*l.,511.-(vaxis+5)*I.,(xaxif?-7)*l.,511 

138  break; 

139  case    6: 

1^0  color(cl); 


.-Cyaxis-3)«1.); 
l.-(vaxis+7)*l.) 
1 .-(yaxi  s  +  7) *  1  .  ) 


-{yaxis-5)*l.); 

-(yaxi  s-3) *1  ,  )  ; 
-  (  y  a  X  i  s  - 1  3 )  ♦  1  . )  ; 

-(yaxis-3)*l.); 
-(yaxi  s-13) *1.); 
.-( yax  i  s  +  7) *  1 .) ; 

-(yaxi  s-3) *l  . )  ; 
-(yaxis-13)*l.); 
.-(yaxis+7)*l.); 
.-(yaxis-3)*l.); 

-(yaxi  s-3) *  1 .  ) 
-(yaxis-13)*l. 
.-(yax  i  s  +  7  )  *1 . 
.- ( vax  i  s-3)  ♦ 1  . 
.-(yaxis-3)*l. 
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ai 

42 
43 
UH 
US 
Ub 
a? 

48 
UP 
50 
51 
52 
55 
54 
55 
5o 
57 
56 
59 
60 
61 
62 
63 
64 
b5 
66 
67 
68 
60 
70 
71 
72 
73 
74 
75 
76 
77 
78 
7P 
80 
81 
82 
83 

84 

85 
8b 

87 
«H 
H<9 
«>0 


M  ocK 
color 
hi  ock 
color 

M  OCK 

color 

bl  ock 

color 

block 
color 
block 
break 

case  7  5 
color 
block 
color 
bl  OCk 
color 
block 
Co'  or 
block 
color 
bl  oc< 
color 
n  1  ock 
color 
block 
break 

def aul t 
overt 
over  f 


color 
block 
color 
block 
color 
M  OCK 
CO  '  or 
bl  ock 
color 
b  1  oc  < 
color 
b  I  ock 
color 
block 
color 


fxaxis-3)*l..,51  l.-(yaxis  +  5)*l  .,  (xaxis  +  3)*l.,51  1  .- 
c2); 

(xaxis-3)*l.,511.-(yaxis-7)*l.,(«axis+3)*l.,511.- 
c5); 

(x3xis-3)*l.,511.-(y3xis  +  13)*l.,(xaxist-3)*l.,511. 
c4); 

(xaxis+7)*l.,511.-(yaxist5)*l.,(xaxis+13)*l.,511. 

c5); 

(xaxis-13)*l.,511.-(vaxis+5)»l.,{xaxis-7)*l.,511. 

c6); 

(xaxis-l3)*l.,511.-fyaxistl3)*l.,(xaxis-7)*l.,5ll 


ci); 

(xaxis-5)*l.,511.-(yaxis+3)*l.»(xaxis+3)*l.,511.- 

c2); 

(x,Txis-3)*l.,511  .-(yaxis-7)*l.,  (xaxis«-3)*l.,51  1  .- 

c3); 

(xaxis-3)»l.,511.-(yaxis+13)*l.,(xaxis+5)*l.»511. 

c4)  ; 

(xaxis+7)*l.,511.-(yaxis+3)*l.»(xaxis+15)*l.»511. 

c5); 

(xaxis-l3)*l.,511.-(yaxis+3)*l.,(xaxis-7)*l.,5ll. 

c6); 

,{xaxis-13)*l.,Sll.-(yaxis+15)»l.,(xaxis-7)*l.,511 

c7); 

(xaxis  +  7)*l.,511.-(yaxis  +  13)*lw(xaxis  +  13)*l.,511 


r>wtbl  (c  t  rover  f  1  owj  fO]=xaxis; 
o-tbl  Ic t rover f 1 ow]  tll=yaxiSf 


(yaxis-3)*l.); 
(yaxis-15)*l.) 
-(vaxis+7)*l.) 
- ( yax  i  s-3) *  1  . ) 
-(yax  i  s-3) *  1  . ) 
.-(yax  i  s  +  7)  *1  .  ) 


(yax Js-3)*1  .); 
(vaxis-13)*l . ) 
-(yaxi  s  +  7) *1 . ) 
-(yax  i  s-3)  *  1  . ) 
-(yaxi  s-3) *  1 . ) 
.-(yaxis+7)*l.); 
.-(yaxi  s  +  7) ♦! . ) ; 


C t  rover  f 1 ow  +  + ; 


ci); 

(xaxis-3)*l.,511.-(yaxis+3)*l.»(xaxis+3)*l.,511.- 

c2); 

(yaxis-7)*l.,(xaxis  +  3)*l.,5n.- 


ixaxis-3)*l.,511 
•  c  3 )  ; 

(xaxis-3)*l .,51 1 
■  c  4  )  ; 

(xaxi  s  +  7)  *1  .  ,511 
:c5); 

( xaxi  s-13)*l  .  ,51 

:  c  6 ) ; 

( xaxi  s-1  3)*1 . ,51 
:  c  7  )  ; 

(  xaxi  s  W)*l  .  ,51  1 
'  c'  1  ^  s  s ) ; 
'iflrcolor  =  c1ass; 
printql'J,  xax  i  s-3. 0,51  I 
break ; 


-(yaxis+13)*l.,(xaxis+3)*l.,511. 
-(vaxis+3)*l.,(xaxis+13)*l.,5ll. 
.-(yaxis+3)*l.,(xaxis-7)*l.,5ll. 
.-(yaxis+13)*l.,(xaxis-7)*l.,511 
-(vaxistl3)*l.,(xaxis+13)*l.,bll 

-(yaxi  s  +  ??)  +  5.0, "%n" , total-7)  ; 


(yaxi  s-3)*l . ) * 

(yaxis-l3)*l.); 

-(yaxi  s  +  7) *1 . ) ; 

-(yaxis-3)*l.); 

-(yaxi  s-3)*l . ) ; 

.-(yaxis+7)*l.); 

.-(yaxis+7)*l.); 


91  ) 

92  return; 

93  } 
94 
9S 

9b  reset ( )  { 

97      /»  roset  function  for  successive  network  iterations  */ 
96       int  i,mark,x,y»z; 
99 
200      if(vers==l  :!  vers==2)  ( 
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1201 
1202 
1203 
120« 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
12ia 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
122a 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
123a 
1235 
1236 
1237 
1238 
1239 
12a0 
I2at 
I2a2 
12^3 
12aa 
12«5 
\iHo 
12«7 
12<i6 
12a9 
1250 
1251 
1252 
1253 
t25a 
1255 
1256 
1257 
1253 
1259 
1260 


P^ge  21 


f  or  (  i  = 
color 
X  =  1  i  n 
V  =  H  n 
2  =  1  1  n 
i  f(z- 
block 
block 
> 

el  se 
block 
bl  ock 
} 

> 


Fri     Feb       8    05:01:00    1980 


{ 


se    { 


0;i<nbpplot;i»t) 
(  la); 

k  t  b )  [  i  1  [  n  ; 

ktbl  (i)  12) ; 

ktbUi)  [31  ; 

=  0)     { 

((x-?)*l.,5n.-(y-7)*l.,(x  +  3)M.,511.-(y-15)»l. 

((x-13)*l.,511.-(v+13)*l.,(x+13)*l.,5ll.-(y-5)* 

{ 

((x-16)*l.,511.-(y-2)*l.,x*l.,511.-(y-10)*l.); 
((x-lb)*l.,511.-(y+10)»l.,x*l.,511.-(y+2)*l.); 


); 
1.); 


fo 

c 

X 

V 

2 

\ 

h 
b 
> 

e 


r(i=0;i<tblctr-l;i+t) 

o1 or ( 1 y ) ; 

=  uniai.iettniriMl); 

=  uni  Tuetb  Mi)  12]  } 

=uniTuetbl (i )  f 3) » 

M2  =  =  0)     < 

lock( (x-5)*l .,51 1 


ret  urni 


lock((x-5)*l.,5ll.-(y-7)-«l.,(xt3)*l.,511.-(y-15)*l. 
lock((x-l3)*lw5U.-(y+13)*l.,(x  +  l3)»l.,511.-(y-3)* 

Ise    ( 

Olock((x-16)*l.,511.-(y-2)*l.,x«l.,511.-(y-10)*l 
b)ock((x-16)*l.,511.-(y+10)*l.,x*l.,511.-(y+2)*l 


); 
1.); 


.); 
.  ); 


t  rnl  i  te(t  f 1 aq)     { 

int     flag/h,i,inD,j#k»),'T»,n»on,outo,Dtr»r,s,x»xx,v»vy» 


f  or  ( 
bD2=f 
for(  j 
b 
} 
i  f  (on 

X 

y 
i 
e 
s 

1 

k 
f 


h  =  0  ;h<cnt  rl  [0)  ; h  +  t)     < 
i  le2; 
=0;  j  <(  f  i  rina  [h) -1  ) ;  j  ♦♦)     { 
n2  +  +  ; 

=  (Do2->t  rnol ot ) ==1  )     { 

=  (bp2->x  xcord) » 

=  (  DO?*'*  /vcord)  ; 

f(tflaa  =  =l     !!     rMaq  =  =  ?)    colorCll); 

Ise    co1or(I5)» 

eGmntfx,y-20,x,v+?0); 

=  (hp?->trn!«?n); 

=  (bo2->t  priDt  r)  ; 

or(i=0;i<);i++)     { 

ch=irac((x-^:(?*n)  ,y  +  ?a..  r;jr-.*s  ! :-.  M  j  ; 

It  ♦  + ; 


) 


if(tflaa  =  =l     I!     tnaa  =  =  3; 
i  Mt-  f  1  an  =  =l  )     color  (  11); 
else    color(ia); 
f 1 ao=0; 
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1^61 
1262 
1265 
126'J 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
127« 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
128a 
1285 
1286 
12«7 
1288 
1289 
1290 
1291 
1292 
1293 
129a 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
130«» 
1505 
1306 
1  507 
1308 
130O 
1510 
131  1 
1  512 
1313 
151  a 
1315 
1316 
1317 
1318 
1319 
1320 


T=  ( bo 

r  =  i  ot 

f  or  (  i 

i 

f 


{ 


2->intrn); 

bMTiI  ; 

=  0 ;  i  <  r  ;  i  ♦  t )     { 
nD=i  ot bl  [wt  1 1  ; 
or(j=0;j<nbrDlot;j++)    { 
i  f  (  i  nD  =  =l  i  nktbM  j  )  10]  ) 
xx  =  linktbl  Ij]  111; 
yv  =  l  inktbl  t  j)  [21  ', 
if(flsa==0)     { 

i  f (xx<  =  x)  f 1 agsl ; 
else  f 1 aa=2t 
sf 1 ag (h) =f 1 aq; 
> 

if(flaa  =  =n  i  nt  rns  1  (  X  X  ,  yy  ,  X  r  y  )  » 
else  intpns2(xxryy»x»y); 
j  =nbrp1 ot ; 
) 


♦  +  ; 


> 


( 


it(tf1aq==?  ;:  tf1aq==3) 
if(tflaa==2)  coIop(II); 
else  color(ia); 
n=(bD2->outtrn); 
S  =  iotbl  (nj  ; 
for(i=0;i<s  ;<++•)  { 

outD=i  otbl  (nt 1 1  ; 

for( j=0; j <nhro1 ot ; j *♦)  { 

i  f  (outr>  =  =l  inktbl  [  jl  {0]  ) 
xx  =  linktbl  (j)  (li; 
yv  =  l  inktbl  [  j )  (2J  ; 

if(sMaq(h)==l)  outpnsKxx.yy,x»y)/ 
else  out rns2 ( X X » yy » X » y ) ; 
j  =nbrpl ot ; 


f 


} 


> 

n  +  *; 


return? 
} 


t  pnsi  i  nk  (  )   < 

inr  flao,i,inp,j»k,l,in,n,on,outp»DtP»P»s,XiXXfV»yy; 

ho2  =  f  i  I e?; 

wrt  i  1  «»  fct  r=  ('^o2->t  pncit  p)  1  =0  )  ( 

i f (on= (ho2->t pnol of ) == 1)  < 
x  =  (  t:'o2->xxcopr<)  '> 
y='t-o2">vycoprt)  ; 
CO  1  OP ( 1 5 )  ; 

3 e o Ti n t  (  X  r  y - 2 0  ,  X  »  V* 2 0  1  ; 
1  =  (bo2->t  pnl er) ; 
k  =  (bo2->t  pnpt  r ) ; 

f  0  p  ( i  =  1 ;  i  <  1 ;  i  ♦  ♦  )  < 
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1321 
1322 
1525 
132a 
1325 
1326 
1327 
1328 
1529 
1530 
1551 
1552 
1333 
153a 
1555 
1556 
1557 
1558 
1559 
15aO 
15a» 
15^2 
15^3 
15aa 
13a5 
13'»6 
15a7 
15'48 
15a9 
1350 
1351 
155? 
1553 
135a 
1555 
1356 
1557 
1558 
1559 
1560 
I5ol 
1562 
13o3 
1  5f>a 
1  SoS 
1  3b^ 
1367 
1568 
1  S69 
1370 
1571 
1  372 
137  3 
1  37a 
1575 
1376 
1577 
1578 
1579 
1  580 


charac((x-«+(8*i  ))fy+2a,naiies(ktl)  ); 
lc  +  +  ; 


> 

col 

f  1  p, 

m=( 
P=  ) 
f  OP 


or(ia 
a  =  0; 
bn2-> 
otbl  t 
(  i  =  0  ; 
i  nD  = 
for( 


); 

intra); 
ml  ; 
i  <r 
iot 
j=0 
i  f  ( 


:bl 


i  n 


t  +  )     { 
[mf  11  ; 

<nbrDlot;j++)     { 
p  =  =l inktbl  [jl  [0]  )     { 
x  =  l inktbl  [  j)  11)  ; 
v=l  inktbl  ( jl  [21  ; 
f(flaq==0)     ( 

if(xx<=x)     flaq=l; 

else    f\ aq-2} 

fCflaa  =  =l)  i nt rns 1  (  X X » y V f X  ,  y  )  ; 
1  se  i n t rns2 ( XX , yy , X » y  )  ; 
=  nb  ro I ot  ; 


mtt; 


> 


n=(bp2->outtrn); 
S  =  i  otbl  [n]  ; 
for(i=0;i<s;i++)     { 

outD=iotbl  [nt-ll  / 

f or ( j=0; j <n&rDlot ; i ♦♦)     ( 

i  f  (oijro  =  =  l  inktbl  [  j  1  (0)  )     { 
xx=l  inktbl  (jl  tlJ  ; 
y v=l  i  nKt bl  [  j ]  [2]  ; 

if(flac!  =  =l)  out  rns  1  (  X  X  ,  yy  ,  X  ,  y  )  ; 
else  out rns2 ( X X » y V f X > y ) ; 
j  =nbrDl ot ; 


1 


> 

ntf ; 


t>p?-t-+; 


return; 


intrns1(x;'»vy»xry)   { 
i  n  t  i  nput  ; 

i f (yy <=y )    < 

if(vy==y)  inDut=0; 
e  I  5e  i  nm) t  =  1  i 
) 

else  i  npu t  =?  » 
} 
else  < 

i  f ( y y <  =  y  )  i  nput  =a  ; 
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1381 
1382 
13B3 
138« 
1385 
1386 
1587 
1388 
1389 
1390 
1391 
1392 
1393 
1  39a 
1395 
1396 
1397 
1398 
1  599 
laoo 

noi 

ia02 
ia03 
laoa 
ia05 
ia06 
ia07 
ia08 
iao9 
laio 

1411 

iai2 
I '4 13 
laia 
iai5 
la  16 
iai7 

1«18 
1U19 

ia20 
ia2i 

ia22 
ia?5 
1  a  2  a 
ia25 

1  ^26 

la27 
ia2'^ 
lii29 
li450 
1^31 
1^32 
la55 
1^5^ 
ia5S 
1  4  5o 
1U57 
la38 
la59 
1U40 


else  1 nout  =  5i 


} 


Switch  ( i  nout ) 

case  0 : 

seqmn t 
rqh t  ar 
break ; 

case  1  : 

seqiin  t 
seqTint 
ra'i  tar 
oreatt  • 

case    2: 

seqTn t 
Seq-nnt 
pcjh  t  s  r 
break ; 

case    5: 

sea-nnt 
se5m"t 
)  f  t  serp 
rgh  t  ar 
break ; 

case    '•» : 

s  e  g  T  n  t 
se^i^n  t 
1  ft  <?em 
rgh t  ar 
break ; 


(xx+16»vyfX-l,y); 
row(x-l »v) ; 

(xx  +  12»yv*12, x-12,y-8) ? 
(x-I2,y-fl,x-l ,y-8); 
roM ( X- 1 , y-8) ; 

(xx*12,yy-l2, x-12,y*8); 
(x-12,y+fl, x-1, y+8) ; 
•rov»fx"l»y*8); 


(xx-12,yy-12,x-12,y*56); 
(x-12,y+16,x-l,y+16); 
i (x-12,y+26); 
row ( x-1 , y f 1 6) ; 


(xx-12,yytl2,x-12,y-56); 
(x-l2,y-l6, x-l,y-16) ; 
i (x-12,y-26); 
row (x-l,y-16); 


ret  urn; 


rgh t  arrow ( x  »  y )  < 

seg'^nt  (.x''i ,  /-U,x»y)  ; 

seq^ntCx-a/y+y^xry); 
return; 
> 


ftssT.  iCx,v)( 
i  nt  i  »  j  »  k  ; 

douh 1 e  sor t (  )  ; 

f  o  r  (  <  =  0  ;  <  <  U  ;  k  ♦  ♦  )  { 

i  =  (v-(<5qrt  (  l')0.-k*K)  )); 
i=(v* (sgrt ( 100. -k*k) ) ); 
Oot (x-(</2. ) ,51 1 .-i ) ; 
-iot  (  x-(k/2.  )  ,511  .-i  )  ; 
\  f  ioH)       < 

■lot  ( t-(k/?. )  ,'=;n  .-i  -2) 

no',  f  x-(k/2.  )  ,511  .-i-1  ) 
-intfx-(k/2.),Sll.-i+l) 
dot (x-{k/2.) ,51 1 .-i  t2) 
Oot (x-(k/2.) ,51 1 .-j-2) 
dot (x-(</2. ) ,51 1 .-j-1 ) 
dot (x-(k/2.) ,511 .-j*l) 
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mm 

lyay 
iy«5 
l^ab 
iaa7 
laae 

\HU9 
U50 

lasi 
la52 
1453 
lasa 
U55 
iaS6 
1«57 
1458 
145<5 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1«B1 
1482 
1483 
14B4 
1U85 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
149q 
1495 
149b 
1497 
1498 
1499 
1500 


dot (x-(k/2.) ,51 1 .-j  +2); 


return; 
> 


out rns 1  C X X  ,  yy » X > y )  { 
i  r\t     output  ; 

i  f  (xx>(x'H2)  )  { 

if(yy<=y)   { 

if(yy=ry)   OUtDUt=0; 

el se  outDut  =  1 ; 

} 

else  output  =2; 
> 
else  < 

if(yv<=v)  output=4; 

else  out  out  =  5; 
) 


Switch     (output  )     { 

case    0: 

setjTint  (  X  +  1 
rah t  arrow ( 
Preak ; 

case    1 : 

se'STin  t  (  X  +  1 
seann t ( X  X- 
rqhtarrowC 
seqmnt ( x  ♦  I 
break} 

case    2: 

se3T>" t  (  X  ■»■  1 
sen^rit  (  X  X- 
rgh t  arrow ( 
seamnt ( x  +  1 
break? 

case    3: 

seiTiotCx  +  l 
seawnt (x+ 1 
seqTiOt  (  X  X  + 
1  ft  arrow  f  x 
roHfsemi (x 
b  r *ak  ; 

c  a.s »»    4  : 

seT^n  t  (  X  •♦  1 
se3r-nt  (  X  ♦  1 
se^T'ri  t  (  X  X  + 
1  f  t  arrow ( X 
roh t  sem  i  ( x 
break ; 


,  Y , xx-20  t  yy) 7 
X  x-20  »  y y ) ; 


2,y-8, xx-28»yyt8)  ; 
28,yy  +  8, xx-20,yy  +  8)  } 
xx-20,yv  +  8)  ; 
,y-8, x  +  12,y-8)  ; 


2, v+B, xx-2«,yy-8) ; 

?B, yy-B,xx-20,yy-8)  ; 

xx-20,yy-8); 

,y  +  8»  xf l2,y  +  8) ; 


,y+16,x+12»v+16); 
2, y+36»xx t2B, yy-B)  ; 
28,yy-B, xx+20,yy-e) ; 
x>20,yy-B)  ; 
♦  12»  y t2b) ; 


»y-16»x+12,y-16); 
?,y-3prxx+2B,yy*8); 
?P,vyfB,xx-»20/yy  +  8); 
X  +  ?  0  ,  y  y  +  B  )  ; 
♦•12,y-26)  ; 


> 


return; 
} 


rght  semi ( x  »  y )       { 
i  nt     i  »  j  »  k ; 
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1501 
1502 
1503 
150a 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
15ia 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
152a 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
153o 
1557 
1536 
1539 
15«0 
15ai 
15«2 
1543 
15i<« 
15«5 
15^6 
15^7 
I5a8 
15a9 
1550 
1551 
1552 
1553 
1554 
1555 
155c 
1557 
1558 
1559 
1560 


aouo 1 e  sqrt ( ) ; 


for 


( It  =  0 ;  k  <  1 1 ;  k  •••  + )  { 

i  =  ( v-f sort ( 100.-k*k ) ) ) ; 

j  =  ( v+ (sqpt ( 100.-k*k) ) ); 

dot  (x  +  (ic/2.)  ,51  1  .-n  ; 

act  («<-(k/2.)  ,51  1  .-j  )  ; 

if(it>8)  { 

dot (x+(k/2.) ,51 1   ■  ' 
dot (x+(k/2.),51 1 
dot (x*(k/2.) ,51 1 


dot  (x  +  (ir/2.),511 
dot («*(k/2.),51 1 
oot («+(k/2.),51 1 
dot  (x  +  (ic/2.),51  1 
dot (x+(k/2.),51 1 


-1-2) 
-i-1) 
-itl) 
-i*2) 
-j-2) 
-i-l) 

-j>n 

-jt2) 


return; 
> 


1  f  t  ar  rot*  (  x  ,  v  )   { 

seq-^nt  (  X  ♦•U  ,  y-0  ,  X  ,  y  )  ; 

s«;t5Tnt(xta,yt4,x,y); 
return; 
} 

i nt rns2 ( X X , yy , X , v)  { 
i  n t  i  nput } 

if(x.>(x-H?))  < 
i  f  (  V  y  <  =  y  )  { 

iffvy==y)  innut=0; 
else  i  nout  =  1 ; 
) 

else  innut=2; 
) 
el  se  < 

i  f ( yy<  =  y  )  i  nout  =4  ; 
else  inout=3; 
) 

Sw  i  t  en  ( i  nout  )  { 
case  0: 

Soj-nnt(xx-16,yy,x  +  l,y)» 

1  f  t  arrow ( x ♦ 1 , y ) # 

h  re  ak ; 
case  1 : 

se:i'T>nt(xx-12,yy*12*xtl2,y-S); 

sea'Tnt(xtl2,y-'^»xfl,y-rt); 

1  ftarrow(x  +  J  ,y-t?); 

breai« ; 
case  2: 

seTTOt (xx-12,yv-12,xtl2,y*8); 

seTT'nt(x-»-12,y+«,x  +  l,y*8); 

1  ftarrow(xtl»v  +  8); 

Oreat; 
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1561 

15o2 

1563 

156a 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

157a 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

158a 

1585 

1580 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

159a 

1595 

159b 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

I60a 

1605 

1606 

1607 

1608 

1609 

1610 

161  1 

1612 

1613 

I6ia 

1615 

1616 

1617 

1618 

1619 

1620 


case  3: 

se.-J-nnt  (xxfl2»vv-12»)(  +  12,v  +  36); 

seamnt(x+12,y+16Axfl/y*16); 

rqhtsemi (xtl2,y+26); 

1 f  t  arrow(x  +  1 »y  +  16) ; 

breat<; 
case  a : 

seg-'int(xx  +  12,yy  +  12fX  +  12,y-56); 

seaTint(x  +  12,v-16»x  +  l,y-16); 

rohtse-ni  (x  +  l2,y-26); 

1 f t 3rrow( x+1 ,y-16); 

Dreaic ; 


return* 
> 


outrn??(xx»yv»x 
i  nt  outDut ; 


,y)     { 


i  f (xx<(x-12) )     ( 

if(yy<ry)       ( 

it(yv==y)     outout=0; 
el se    outDut =1 ; 
} 

el  se    outDut  =2; 
> 
else    { 

if(yY<  =  y)     0<JtpUt=a» 
else    output=3;'  '    ~" 

} 


Switch    (out  out) 
case    0: 

seamn t ( 
1  f  t  ar ro 
break; 

case  1  : 

S«»q'nnt  ( 
seci-n->t  ( 
1 1 1  ar ro 
sea-nnt  ( 
break; 

case  2: 

se Jmnt ( 
searrnt  C 
1  f  ♦■  ar  ro 
seriTint  I 
break; 

case    3: 

Seci'nnt  ( 
seornt  C 
seamn  t ( 
rah t  ar p 
1 f  t  seTi 
break; 
case    a: 

Sepwnt  ( 
seatint  ( 
seqirn  t  ( 


< 


x-l»y/xx+20/yy); 
w(xx*20»yv); 


x-l2,y-8, xx+28,yvt8)  ; 
xx+28»yy+8,xx+20,yyt8)? 
w(xx*'20»yy*8); 
x-l,y-8,x-12,y-8); 


x-12,y  +  S, xxt2H,yy-8)  ; 

xxf2P,yy-8,xx+20,yy-8); 

ta ( X 1 +20 , vy-8)  ; 

x-1 ,y+e,x-12,y+8) ; 


x-1  ,y*16,x-12>y*lt)); 
x-l?»y+36,xx-28,yy-8); 
xx-?*'»yy-8,  xx-20,yy-8); 
owf xx-20,yy-8) ; 
(x-12»y+26); 


•1  ,y-16,x-12,y-16); 
•12,y-36,xx-28,yy*8); 
-28»yy+P, xx-20,yy+8); 
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1621 

1623 
162^ 
1625 
1626 
1627 
1628 
162<9 
1630 
1631 
1632 
1633 
163a 
1635 
1636 
1657 
1638 
1639 
16^0 
16'Jl 
16^2 
I6a3 
I6a« 
16'J5 
I6a6 
16^7 
loU8 
1609 
1650 
1651 
1652 
1653 
165a 
1655 
1656 
1657 
1658 


rqhrarpow(xx-20,vv+a); 
1  ft  semi  ( x-12.y-26) ; 
break; 


return; 
} 


coltabO   { 
int  i  ; 


i  =  ll* 

1  odco 
1  odco 
1  odco 
1  odco 
1  oaco 
1  odco 
1  odco 
1  ortco 
1  odco 
1  odco 
1  odcc 
1  odco 

1  O  d  C  O 
1  odco 
1  odco 
1  odco 

ret  urn} 

} 


16) 


♦■  +  »15,15,15);  /*  color  0  »/ 

+•♦,0,10,0);  /«  col  or  1  »/ 

♦+, 15,0,0);  /*  color  2  «/ 

+♦,15,15,0);  /*  color  3  »/ 

♦♦,12,0,12);  /♦  CO) or  a  */ 

♦+,5,5,12);  /*  color  5  */ 

+  ♦  ,6,6,5) ;  /*  colore  */ 

♦+,5,3,3);  /*  color  7  */ 

♦+,10,0,10);  /*  color  8  */ 

++,12,5,5);  /*  color  9  */ 

♦  +  ,5,5,3);  /♦  col  or  1 0  */ 
+  ♦,12,12,0);  /♦  col  or  11  */ 

♦  +  ,8,7,3);  /*  col  or  12  */ 
+  +  ,5,«,2)  ;  /*  col  or  13  */ 
++,0,0,6);  /*  color  la  */ 
++,6,0,0);  /*  color  15  */ 


END  OF  PROGRAM  TRANSGRAPH.C 


/******«^******)k**««**************«****>k*******«**/ 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
l.a 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2a 
25 
26 
27 
28 
29 
30 
51 
32 
33 
3a 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
40 
47 
46 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 


PROGRAM  LINKGRAPH.C 


•******«**********«*************/ 

*****/ 


/*********k**»1t»1,*-i,*'ki,*i,i,1,i,i,l,1fk*-k*it1Hi***1t*****iimr***1i**mni/ 


STEPHFK'    C.    JEfiMPJGS    JC91    USMC 
ROeERT    J.    HARTEL    CS91    USA 

f.RITTEN  FALL  QUARTER  1979 
NAVAL  POSTGRADUATE  SCHOOL 
MONTEREY,  CALIFORNIA 


/ 


/»*«*       EXTERNAL  DECLARATIONS      *»**/ 


/»♦♦»  LITERALS  ****/ 


acjef  i  ne 

« Jef  i  ne 

«de  ^  i  ne 
«de  ^  i  ne 
*de ♦ i  ne 


header 

sto 

f  i  red 

f  r ames 

hounds 

uoDef* 

limit 


a 

/♦ 

10 

/* 

100 

/* 

150 

/* 

3b0 

/« 

2000 

/• 

3600 

/* 

/****  STRUCTURES  ****/ 

struct  { 

i  nt  ct  rl  1  ; 

int  nameotr; 

i  nt  marker; 

int  xcord; 

int  ycord/ 

int  o 1 o t  ; 

int  length; 

Ifilel  Iboundslf   *^d\  > 


struct  { 

int  ct  pi  2; 

int  t  rnot  r ; 

int  i  n t  rn ; 

int  out  t  m; 

int  xxcopd; 

int  yvcord; 

int  t  rnpl ot 

int  t  rnl en; 


contains  control  «  as  to  bvtes  read  in  ...  */ 

the  Standara  incut  read  buffer  length  ....  */ 

the  max  t'  of  t  rans  i  t  i  ons  f  i  rea  in  1  frame  */ 

inaicates  the  total  »    of  network  states  ..  ♦/ 

bounds  on  max  «  of  nodes  or  transitions  ..  */ 

/•  defines  iotbl  max  length */ 

/*  defines  names  max  length  .................  »/ 


/*  data  structure  information  on  net  nodes 


*/ 


/*  store  control  char  not  used  in  program  ...  »/ 

/*  index  to  names  array  .....................  */ 

/*  initial  marker  state  of  the  network  */ 

/*  X  cordinate  of  olace */ 

/♦  y  cordinate  of  place  */ 

/*  whether  or  not  olace  is  to  be  dotted  ....  */ 

/*  length  of  name  associated  with  place  */ 

/*  Dointer  into  data  structure  */ 


/♦  data  structure  information  on  transitions.  */ 

/*  store  control  char  not  used  in  rroqram  ...  */ 

/♦  ingex  to  names  arrav */ 

/*  oointer  to  inputs  for  a  transition  ♦/ 

/*  pointer  to  cutouts  for  a  transition  */ 

/*  X  cordinate  of  transition  ................  */ 

/*  y  cordinate  of  transition  «/ 

/*  whether  or  not  transition  is  to  be  clotted  */ 

/*  length  of  name  associated  with  transition  •/ 
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61 
62 
65 

6a 

65 
o6 
67 
68 
6Q 
70 
71 
72 
73 
Ti 
75 
76 
77 
78 
7<? 
80 
81 
82 
83 

ay 

"5 

86 

87 

88 

39 

90 

91 

92 

93 

9y 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10« 

105 

106 

107 

108 

109 

110 

11  1 

112 

1  13 

1  in 

1  15 

lib 

117 

118 

119 

120 


}fi1e2  [bounds]  f   *bc2; 


/♦**♦  INTEGERS  »*«»/ 

nt  alra2>a3>3y; 

nt  ouf fer (rounds) ; 

nt  cnt  r1  [  1  ]  ; 

nt  ctroverflow; 

nt  dfltcolor; 

nt  ♦dfbuf* 

nt  fdgbuf; 

n t  f  i  p  i  nq (bounds)  » 

nt  i  C t  p  ; 

n t  i  even t  s ; 

n  t  i  ^  1  a  a ; 

nt  i  o t D 1  (uooepl  ; 

n t  k  r  n  f  pame ; 

nt  1  i  n<  ttil  Iboundsl   la)  ; 

n  t  nb  pp 1 o  t  ? 

nt  nbvtes[2); 

nt  ovepflowtbl  (^ipedl  f21 

nt  set ; 

nt  tabcount; 

nt  tbl ct p; 

nt  uniauetbl [^ipedl  t^) ; 

nt  veps ; 

nt  X i nst OPe t f i Ped) ; 

nt  xout s t OPe  I  M ped)  ; 

nt  V i ns t OPe I f i pedl ; 

nt  vout St OPe I H pedJ ; 


/«»*«  CHARACTERS  *«»»/ 

criap  cbuftstd);      ; 
chap  dbuMstd); 
cnap  fbufTstd); 
chap  QDu^  tst d)  ; 
chap  na.-nesdimit);. 
chaP  scpnJ 
chap  tbuftstdl; 
cnap  vbuf  Cs t  d)  » 
chap  1 1  mi  nq; 


/*  oointep  into  oata  stpuctupe  */ 


/*  global  stopaqe  fop  each  data  stPuctupe  ...  */ 

/*  bu'ffep  into  which  each  fpaoie  is  pead  .....  */ 

/*  variable  containing  U    tPansitions  fiped  ..  */ 

/*  keec  tpack  of  nodes  ovePf)ow  status  */ 

/*  a  default  colop  fop  indicatina  ovepflows  .  •/ 

/♦  file  descpiotop  fcp  RUN--Y  files  */ 

/*  file  descpiotOP  fop  RU^i  —  Z  files  */ 

/*  stopaae  into  which  fiped  places  are    pead  .  */ 

/*  countep  oassed  to  a  function */ 

/*  nui^bep  of  non-  i  displavable  nodes  */ 

/*  countep  fOP  t^e  inteppuot  mechanism  */ 

/*  foP'ns  i  nput -t  o-out  out  PelationshiD  «/ 

/♦  countep  fop  the  itePations  of  the  netwopk.  */ 

/*  vepsion  1  i  2  scpeen  nodes  locations  */ 

/*  countep  fop  numhep  of  displayed  nodes  ....  */ 

/*  stope  count  fields  fop  oata  stpuctupes  ...  »/ 

/*  data  stPuctuPe  to  stoPe  overflow  locations  */ 

/*  usep  selectea  conpac  qpaohics  scpsen  */ 

/*  countep  fop  link  revefT     ..................  */ 

/*  a  countep  fop  vePSion  3..peset  conditions.  */ 

/♦  peset  table  locations  fop  vePsion  5  */ 

/♦  usep  selected  notion  */ 

/*  coopdinates  petained  fop  link  pevePt  .....  */ 

/*  cooPdinates  petained  fop  linn  pevePt  .....  */ 

/*  cooPdinates  petained  foP  link  pevePt  */ 

/♦  cooPdinates  petained  fop  lintc  pevePt  .....  */ 


/♦  buffep  stoPe  of  file  to  be  executed  */ 

/»  buffep  stope  detepmininq  data  scan  */ 

/*  buffep  to  stope  name  of  second  file  * / 

/*  buffep  to  stOPe  name    of  thipd  file */ 

/*  chapactep  array    fop  node  labels  */ 

/*  option  vapiable  fop  display  to  the  scPeen.  ♦/ 

/*  buffep  to  stope  timina  variable */ 

/*  buffep  to  stoPe  vePsion  selected  */ 

/*  vapiable  to  set  oPogpaT  execution  timing  .  ♦/ 


/**»«•»«**•»♦»♦*♦*♦♦♦*♦♦**♦■«♦•♦/ 
/•♦»«*      FiiNJCTlON  MAIN     *«♦*/ 


ma  i  n  ( )  { 


ex  t  e  pn  pubout (  )  » 
ini  t  C)  ; 
deteP"nine(); 
di  sol  ay  (  )  ; 
sel ec t  (  )  » 
ppeoape (2) J 
arawnode (  )  J 


/*  declape  'pubout'  Globally ♦/ 

/*  read    input  file  */ 

/*  vepify  if  useP  wants  to  see  data  stPuctupe  •/ 

/*  display  input  to  CPt  */ 

/»  select  vePsion  of  simulation  &  genisco  set  */ 

/*  oreoare    aenesco-conpac  ..*.... */ 

/*  dPaw  netwopk  nodes  on  conpac  */ 
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121 
122 
123 
12a 
125 
126 
127 
128 
129 
130 
131 
132 
133 

13a 

135 

136 
137 
138 
139 

lao 

141 

ia2 
ia3 
laa 
l«5 

116 

ia7 
la8 
1U9 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
Ifab 
167 
le>8 
169 
170 
171 
172 
173 
174 
175 
17fa 
177 
178 
179 
180 


d1 aces ( ) ; 

1  inicO; 

i  frark  ( )  ; 

signal (2/ rybout ) ; 

ma  p  k  i  nq ( ) » 

gn  f  i  n  »  C ) » 


/*  verify  correct  no^es  firawn  */ 

/*  funcfion  deoicts  network  connectivity  ....  */ 

/*  starting  status  of  network  rackets  */ 

/♦  sets  '6RK'  as  interruot  */ 

/*  successive  iterations  of  networic  flow  ....  »/ 

/*  closing  Out  graphics  facilities  */ 


/»**«      PROGRAM   FUTvlCTIOhS      ****/ 


pause (ceroid)  < 

/*  function  necessary  as  sleep()  not  co'T'Datible  witn  signaH)  */ 
i  nt  i  f  j  »  k  ; 

printf("***>>interrCjDt "); 

f o r  I  i =0 ; i <oero i dJ i + * )  ( 
f  o  r  (  j  =  0  ;  j  <  a  0  0  ;  J  t  ♦  )  { 

forrk=o;<<iooo;k++)( 
> 
) 
} 

orintf("***>>wait "); 

return; 
} 

rubout  (  )   { 

/•  function  enables  the  'brk'  key  as  the  interrupt  signal  */ 
char  halt; 

scace(2) ; 

or i  nt  f 

(••♦♦»>>>  received  s  i  ana  '  . . .  f  rame  nuT^ber  %d...<ret>  to  continue  \n"» 

(i  f 1 ag*2)  )  ; 

pr i  nt  f 

(•*«**>>>  for  terTiination  of  proar  am .  .  .  t  yce  'brk'  from  console  \n"); 

while  ( Chal t=aetchar(  )  )  l  =  '\n' )   { 
/»   .1o-no*.  hinQ  loop   */ 

) 

sianal(2» rubout); 
return; 
) 


soacp  f  ret  urns)  < 
i  nt  i  ; 

for  (i=0;  i<returns;  i++)  ( 
printf("\n"); 
) 
return; 


init  ()  < 
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181 
182 
183 
184 
185 
186 
187 
183 
189 
190 
191 
192 
193 
19a 
195 
196 
197 
198 
199 
200 
201 
202 
203 
2oa 
205 
206 
207 
206 
209 
210 
211 
212 
213 

2ia 

215 
216 
217 
216 
219 
220 
221 
222 
223 
22« 
225 
226 
227 
228 
229 
230 
251 
232 
233 
23a 
235 
236 
237 
238 
239 

2ao 


/*  function  oo^ns  unformatted  file  i^  initializes  start  condition  */ 
int  a » Du f c t r » coun t » f d» i » j « 
Char  c / f ; 

soace (2) ; 

ori  nt  f  (  "♦*»->LPJKGf?APH  ILLUSTRATES  NETWORK  SI^'ULATION  MODELS"); 
soace (?) ; 

orint  f  ("***->E^JTER  THE  Ni"'E  OF  THE  FILE  TO  6E  PROCESSED ..  BU  T  \n"); 
DPintfC"  '"JOTE  THAT  THIS  FILE  MuST  8E  Arj  UNFORN'AITEO  FILE  \n"); 
orintfC      PHOOUCEO  AS  A  RESULT  OF  EXECUTING  s  i  mu  1  a  t  op  .  out  Nn"); 

oryr^tfC  THE  LAST  LETTER  OF  ^VHICH  MUST  END  IN  LETTER  'X'  Vn"); 

error: soace (2) » 
Drintf("»**->"); 

i=0;  '  - 

whi le((c=qetchar() )  •=  '\n')  { 

ctauf  Ci  J  =c; 

i  ♦  +  ; 
} 
cbuf  Ci] ='\0'  ; 

buf C t  r=i  ; 

f or ( j =0 ; j <buf c t r ; j t+ )  < 

nnu*  [j ) =fbuf  ( j] =cbuf  tiJ ; 
i f  (cbuf U 1 =='X' )  { 
fbuf(jJ='Y'; 
abuf  [j)='Z'; 

Qbuf  f j  +  11 =tDuf  ( j  +  1) ='\0' ; 
I =buf c t  r; 


> 


} 

fd 
i  f 


=  ooen (cbuf»0); 
( fd  <=  0)  ( 

or i  nt  f 

("***->error  occurred  in  ooeninq  file..... 

soace ( 3  )  ; 

goto  error; 

} 

if((count  =  read( fd r nbyt es » header ) )  1=  header) 
or i nt f ( "error  occurred  in  nbytes  read")/ 

ievents  =  (nbytesfl)  -  1); 

al  =  nbvtes  [1 ]  ; 

a  =  (nbvtes(n-l)*ia; 

if((count-  =  rea  •!(  fd,  ♦i  I  el  ,a)  )  1=  a) 

orintfC" error  occurea  in  filel  read"); 

i  f( (count=read( fd.nbvtes, header) ) !=hpader) 

or i nt f ( "error  occurred  in  nbytes  read"); 

a<?  =  nby  t  es  111; 

a=(nbvtes  (11  -n*l&; 

i  f( (ccunt  =  read( fd, fi  le2»3)  ) :=a) 

nrintf(" error  occurred  in  file?  read"); 

i  f  (  lcount=readf  fd»nr)ytes»header)  )  l=header) 

pr i nt f ( "error  occurred  in  header  read"); 
33  =  nby t  es  f  1 1  » 
a=(nbytes  (  11  1 1  )  *?.} 
if((count=read(fd/iotblfa))!=a) 


try  again"); 


\ 
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Drintf("errop  occured  in  iotbl  read")# 


i  f  (  (count  =  rea<^(  ^d/novtes, header)  )  l=header) 

orintf(" error  occurred  in  header  read")? 

aarnbytesfll; 

a  =  nbvt  es  [  11  •»■  1  ; 

i  f{  (count  =  read( fd»names»a))l=a) 

Drintf("error  occurred  in  names  read"); 


zm 

2a5 
2<iU 
2a5 

2«6 

247 
2H6 
249 

250  close(fd); 

251  return; 

252  } 
253 
254 

255  determineC)  < 

256  i  nt  i  ; 

257  c'lar  d; 
258 

259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
?«2 


space (2) ; 

orint  f  ("♦♦*->Pur;CTIO''J  '  OETFRMI  IJf  *  iLLO.^iS  THE  USER  \n"); 
orintM"      TO  EXAMINE  ALL  PRI-'ARY  QATA  STRUCTURES"); 
over : soace ( 2 ) ; 
or i  nt  f 

(»***->IF  THIS  FEATURE  IS  DESIRED  TrPE  1  IF  NOT  0,  THEN  <RET>"); 
space (2 ) ; 
Drintf("***->"); 

i=o; 

whi 1e( (d=ietch3r() ) :='\n' )  { 

dbuf  [i ] =d; 

i  tt; 
> 
dbuMil='\0'; 

i=o; 

whi leCdbuf  [i)  :  =  '\0'  )  { 
d  =  abuf  t  i 1 ; 
swi  tch (d)  { 
case'O'  : 

srcrn=*  OS- 
break  ; 
case' 1 ' : 

scrn=' 1 • ; 

print  f  ("***->l'S£  CONTROL  Q  rtHEN  SCREEN  FULL"); 
b  reaf  ; 
1  e  f  a  u  1  f  : 

orint'f"***->eit^ier  blanx  or  invalid  entrv"); 
aot  0  over ; 
t/  r  e  a  k  ; 
) 

i  t  +  ; 
> 


2''3  return; 

2^)4  ) 

205 

296 

297  disolavD  < 

298  int     i; 
299 

300  i  f  (scrn  =  =M  '  )     { 
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301 
502 
303 
30a 
305 
30b 
507 
308 
309 
310 
511 
512 
513 
3ia 
515 
316 
317 
318 
319 
320 
321 
322 
525 
52« 
325 
326 
327 
328 
529 
530 
331 
332 
555 
53«4 
355 
536 
537 
538 
339 

mo 

5al 
5a2 
3a3 
laa 
5^45 
3a6 
3a7 
3a8 
3a9 
350 
351 
552 
555 
354 
555 
35b 
357 
358 
359 
360 


scace( 
bol  = 
pr  i  Pit  f 
soace ( 
D  P  i  n  t  t 
("Infe 
fop  (i 
pr 


2); 

f  n  e  1 ; 

2); 


>  FlLEl  DiT4  STRUCTURE"); 


bo 


ed    *     maptcep     xcopd    ycoPd    plot     lenQth  \n"); 

=  0 ;  i  <  a  1 ;  i  ♦  + )  ( 

intf("%d  \t  Xd    \t  %d  \t  Sd  \t  %d  \t  Xd    \t    'id    \t  \n'', 

bpl->ctp1  1  »bDl->nafneDtPf  bol->maPkep#bpl->xcord/ 

bpl->vcoPd»DDl->plot»bpl->lenqth); 
1  ♦  +  ; 


) 


SDace(2); 

bD2  =  f  i 1 e2; 

DPintf  ("***->  FILE2  DATA  STWUdUKE"); 

s  D  a  c  e  (  2  ) ; 

pp »  nt  f 

("Infeed    tpnptp   infrn    outtPn   xxcopd  yycoPd  tPnplot  tpnien  Nn"); 

fop(i=0;i<a2;i+*)< 

OPintfC^.d    \t     %d    \t     %d    \C     Xa    \t     Xd    \t     Xd    \t     Xa    \t     Xd    \t     Nn", 
bo2->ct pl 2»bp2->t  pnpt  P/bR2->i  nt  pn,bp2->out  t  rnt 
^^r!2->xxcordfbD2->yycoPd»bD2->tPnplotfbp2->tpnlen); 

bo2't-+  ; 
> 

srace ( 2  )  ; 

ppiot f ("*♦*->  I0T3L  DATA  ARRAY"); 

soace(2) ; 

fpr  (isO;  i<a3;  i++)  ( 

p  p  i  n  t  K  "  X  d  "  ,  i  o  t  b  1  [  i  ]  ) ; 
} 

soace ( 2) ; 

print f ("***->  NAMES  DATA  ARRAY"); 

soace ( 2 ) ; 

foP  (i=0;  i<a^+l;  it*)  { 

DPintf("*c"»na'nes(i)  ); 
> 
space (2) ; 


pet upn; 


pperapeCfyo*)  { 

/*  function  if^  ^  or  a^ "S     set 
i  n  t  n  ,  t  »  y  ; 


scpeen  size  and  coIop  fable  */ 


y  =  0; 
aen  i 
e'"as 
sc  P? 

set  rr 

col  t 

cc  1  o 

f  OP( 


SCO  ( set  1  ; 

e  ()  ; 

en(0.0,n.O,M  1  .0,51  1  .0)  ; 

pa ( t  yne  )  ; 
an(  )  ; 

p  t  ( 1  n  ; 

n=i?;n<ia;n+*)  < 
CO  1  OP (n ) ; 
f or (t=o; t<512; t ♦+)  { 

seQ'nnt(0,v  +  t#51  l»ytt); 
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361 

36? 
365 
36a 
365 
3b6 
367 
368 
369 
370 
371 
372 
373 

37a 

375 
376 
377 
378 
379 
380 
381 
382 
383 
381 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39a 
395 
396 
397 
398 
399 

aoo 
aoi 
ao2 
ao3 
aoa 
ao5 
aot> 
ao7 
ao8 
ao9 
aio 
an 
ai2 
ai3 
aia 
ai5 
aib 
ai7 
ai8 
ai9 
a20 


return; 


drawnode ( )  < 

/*  ^unction  disolays  tyoe  ^  location  of  network  nodes  */ 

char  c » *nDr r# ho  1 d/ 

int  a»D»cl  plol  »co'int»d»entrv,h,i  ,j  ,k,  1  fnode»test»x,y,*z; 

floats; 

doubl e  sqrt ( ) ; 

bol  =  f i lei; 

a=o; 

count  =  1 ; 

whi  Ie((test  =  (hpl->narneptp))l=0)  { 
colorda); 
t  e  s  t  ♦  +  ; 
z  =  ina-nes  [ t  est  1  ? 

c  =  *z ; 

i  f     ( (b=(bDl->c1ot )) 1=  0)  { 
switch   (C  )  < 

'  case  •!': 

ncde=l ; 

X  =  (hol->xcord) ; 
V  =  (bol ->vcord) ; 
f or (d  =  0;d<l  0;dt+)  { 

seOTint  (x-16ry  +  2  +  dfX»y  +  2fd); 
> 
if(vers==3)       { 

nDtr=    inames  [t est ♦ 1) ; 

hola=    *nrtr; 

cl  rlbl  =atoi  (8.hold)  ; 

label (x,y,rest»cl rlbl #node); 

c  o  1  o  r  (  1  a  ) ; 
) 
else    < 

c  1  r  1  b  1  =  1  «  ; 

label (x,y,testfcl rlbl »node); 
f 

1 inktbl  (al  [3J  =1 ; 
break; 
c=»se     '0': 

node=? ; 

X  =  (oDl->xcord); 
y  =  (fo  1  ->y  cord  )  ; 
for(T  =  0;H<lO;(1  +  +)      { 

segmnt  (x-ltify-c'-d»Xfy-2-d); 
> 
if(vers==5)        ( 

notr=    .Kna'^esltesttlJ; 

hn 1 d=    *not ri 

clrlc  1=atoi(iihold); 

label (»,Y»testfClr1b1/node); 

colore lU) ; 
> 
else    { 
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«21 
a22 
<i2i 

u^^ 

liSb 
^27 
a28 
a2<? 
a30 
i»31 
a32 
135 
aja 
a35 
a36 
a57 
a38 
a39 
a«o 
aai 
ua2 
ay3 
laa 
a«5 
a46 
am 
line 

aso 
asi 
4-52 

a53 
asa 
455 
a56 

457 
458 
459 
460 
4bl 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
iJ74 
475 
476 
477 
478 
479 
480 


c 1 rlbl =14; 

label  (x»y»test»cl  "-Ibl  »noJe); 


} 


) inktbl  [a1  [31 =1; 
break  ; 
case  'R  '  : 
node=0; 

X  =  (bol ->xcord3 ; 
y  =  (be  l->ycoPd) ; 

f or (d=o;a<3l ;d++)  ( 

seqmnt 

(x-18+d/a,y+15-d,x+18-d/4,yfl5-d); 
} 

c  1  r  1  b  1  =  1  4 ; 

label (x»y,test/ClrlDl»node); 
break; 
case  '3': 

node=0 ; 

X  =  CbD 1 ->xcord) ; 
y  = ■  (ho  1 ->ycord) ; 
for(i=0;d<31 ;d++)  < 

s?q(T'nt(x-18,y-15i-a,x  +  18,y-15-»-d); 
> 
i  f  (  we'"s  =  =  3)   { 

nrtr=  &naTes  ( t es t  +  1 1  ; 
hold=  *nDtr; 
c 1 r 1 bl =at 01 ( Shol d)  ; 
1  abel  ( X f y » t es t /C I r 1 b 1 / node) ; 
c  o  1  o  r  (  1  4  )  ; 
1 
else  < 

C  1  r  1  b  1  =  1  4 ; 

label (x/y,testfCl rlbl foode); 
} 

break ; 
case    'T': 

node=0; 

x    =     (bpl ->xcord) ; 
y    =     ( pp 1 ->ycord) f 
•      for    (k=0;k<l9;k++)    { 
s  =  k; 

i  =  (x-{scirt  (324. -s*s)  )  ); 
j  =  y  +  s  ; 

1 =(x+(surt (324. -s*s) )) ; 
seoTint(ifj»l>jl; 
> 
■for      (if=0;k<19;k  +  +)      { 

s  =  k; 

i  =  (x-(sart  ("^24.-«s«s)  )]  ; 

j  =v-s ; 

l=(x*(sopt (324. -s*s) ) ); 
seoTin''  (  i  »  j  »  1  »  j  )  ; 
} 
if(v»r«;  =  =3)         { 

notr    =    SinaTes  [  t  est  +  1 1  / 

hold    =     *  np t  r ; 

clr1bl=atoi(fihold); 

label  (x»y»testfCl rlbl rnoae) 7 

color(14); 
) 
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aei 

483 

aea 
ass 

net 

«87 

a88 
apo 

«Q1 

a92 

495 

a9a 
a<95 
a96 

U97 

y98 

U99 
500 
501 
502 
503 
SOU 
SOS 
506 
50  7 
508 
509 
510 
511 
512 
513 
Sia 
SIS 
516 
517 
518 
519 
520 
S21 
52? 
525 
52'4 
525 
S2^ 
527 
528 
529 
530 
531 
532 
535 
534 
535 
536 
537 
538 
539 
540 


else  < 

c 1 pl hi =14; 

laset (x,v,test»cl rlol »noae); 
} 

break ; 
aef aul t : 

DP  i  nt  f 

("naTie  not  valid  identifier"); 

soace (2 ) ; 

break ; 


> 


CO 

bo 
> 

i  f 


1 inktbl  [a)  [01 =count; 
1  inktbl  (a)  [1]  =  x; 
HnKtbl  (al  C2l  =  y; 

a*+; 

> 
unt  +t ; 

Cvers==5)  { 
e  n  t  r  y  =  0  ; 

uniqueto)  [entpy]  (01=linkt!::«l  [01  [01; 
uniauptbl  fentpvl  111=1  inktbl  [01  [1]; 
uniiuetol  [entpy!  [21=linwtbl  [0]  [21; 
uniaue»-t1  [entPvl  (3]=1inkrcl  101  [31; 
ml  c  t  p=  1  ; 
for(i=0;i<a;i*-+)     ( 

itCuniauetbl  [entpyl   [11==1  inktol  [i+11  [11        && 
uniaueTbl  [entryl  [21==Iinktbl  [i*ll  [2J  )     ( 
/  *     (30    not  h  i  ng     «/ 
> 
else    { 

entry**; 

uninuetbl  (entrvl  [0]=linktbl  [i+D  [OJ; 
uniquetbl  [entrvl  [lJ=linktbl  [i*ll  [11; 
uniquetol  [entrvl  [21=1  inktbl  [i+D  12]  i 
uniqoetbl  [entryl  (31=1  inktbl  [i+ll  [31; 
tbl Ct  rt  +  ; 
)       ■ 


1 

PDrr 1 ot  =a; 
return; 
1 


pi  aces  I )     { 

i  n  r     h  »  i  ,  j  f  k  ; 

i f (scrn  =  =*  1  •  )     i 
?  fvi  c  e  (  2  )  ; 

or  mt  t  f  "  ♦**->)ATA     STKLiCr'Jt^t     LIMKTHL     "1; 

SD^C  (?)  i 

for(i=();i<nbrnlot;i+  +  )     < 

for(h=0;h<a:h++l     < 

printf("*4n    --",  1i  nktbl  [i  1  [h]  1  ; 

} 

soace ( 1 ) ; 
} 
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5«1 
5a2 
5U3 
5aa 
5^5 

5a7 
Sim 
5a9 
550 
551 
552 
553 
55a 
555 
556 
557 
558 
559 
560 
561 
562 
5(S3 
5to« 
565 
5o6 
567 
566 
569 
570 
571 
572 
573 
57a 
575 
57b 
577 
578 
579 
580 
5B1 
582 
583 
S^u 
5«5 
SFb 
5«7 

5«e 

589 
590 
591 
592 
593 
S9a 
505 
59b 
597 
598 
599 
bOO 


soace  (?)  ', 

mint  ♦  (  "***->0/\TA     ST^DCTUKE    UM  I  !JUE  T  uL  "  )  ; 
st?ace(<?)  ; 

for(i=o;i<tslctr;j++)    { 
for(k=0;K<a;k+t)    < 

orintfC'Xd    --",uniqueCbllj)  IkJ); 
) 

soaceC 1 ) ; 
> 

space (2) ; 


return; 
) 


l3t3el(xx,vv»zz/cli:l»olace)     i 

/*    aeter-nines    node    label 
i  nt     f  »  i  ; 


olaceTient     in    relation    to    node    */ 


color(clbl); 


{ 


switcr  (rlacel 
case  0  : 
if(xx>250)  i 

f or { i  =0 ; i  <?; i ♦♦)  { 

cnar3c((xx  +  (22+(3*i  ))),yYfna(nesC22]  ); 

) 
> 

el  se  { 

for ( i=0; i<2; i  *t)  { 

charac((xx-(3a-(8»i  )  )  )  ryy  r  nar-es  izz]  )  t 

} 
> 

break; 
case    1     : 
if(xx>250)     { 

f nr ( i =0; i <2; i +♦)     < 

charac((xx  +  '4t(6*i))»yy+2>naTes[zz]); 

zz**; 

\ 

V 

o  1  «;  o      { 

tor  M  ='i ;  i  <,?;  i  ♦♦  )     { 

cnarac(  (xx-C5?-(6*i  ))),vv  +  2fna"iesl?2l  l; 
?2  +  +  ; 
} 
) 
^■.  r  e  3  <  » 


C  ^  s  e    .f     i 
i  t I  X  x>^50  ) 
♦  11  r  (  i  =  1 ; 
C^ar  ;i 
ZZ**i 
) 
> 

else    ( 


<2; i  +tl     { 

C(xxta+(«*i  )),vv-10»naiTiestzzl  ); 
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601 
602 
603 
60a 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6ia 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62a 
625 
626 
62  7 
628 
629 
630 
631 
632 
633 
65^ 
635 
656 
637 
638 
639 
640 
bUl 
6«2 
6a3 
bua 
bUS 
bUb 
6a7 

6^0 
651 
65? 
653 
65^ 
655 
656 
657 
658 
659 
660 


for(i=0;i<2;i+t)  { 

ch3rac((xx-(32-(8*i))),yy-10,na'T'esr22]); 

) 


> 

break  i 


return; 
> 


HnkO 
/* 

1  n 
i  n 

CO 
CO 
kt 


{ 

function  links  nodes  bv  information  stored  in  iotbl  */ 
t  afC»in[.iO]  ,oij«-  C-lO]  jDlotinlaO)  ,olotout  [aaj  ; 
t  content/ktPf  i  fkf-n/inaxinctrjmaxoutctr*  1  ,o,  inx/  inv/outx»outy» 


lor 
nt  e 
r=l 
i  le 

f 


(14); 

nt  =  i  ot bl  (11  ; 

t 

(content  1=0)  { ' 

axinctr=iotDl  (ktrl  ; 

or(i=0;i<content;i++)     < 

k  t  r  +  t  ; 

in(il=iotbl{ktr); 

t  r +  +  ; 

ontpnrs  iotbl  Ikt"")  » 
axoutc  t  r=i  otcl  (ictr]» 
or  ( i  =0;  i  <content ;  i  t  ■♦•)  < 

k  t  r  +  f  ; 

out  Ci ) =iotbl  (kt rJ ; 

cr  (  0  =  0  ;  D<'^a  X  i  PC  t  r  ;  p+ +  )     < 
riot  ^  r>  irl  =!'; 
fCirf.  l=');l<nnrnlotM+t)      { 

i  f  (  in  [o]  ==1  inktbl   (1)    (01  )      { 
n  1  Ot  i  n  loJ  =  1  » 
1 =nbrpl ot ; 


} 


tor (c=0 ; o<raxcut c t r ; D++ )     ( 
pi  ot out  fol =0 ; 
+  O  r  M  =  0  ;  i  <  n  o  r  n  1  o  t  ;  I  +  +  )      { 

i  M,-:jt    to)  ==1  ink  Cb  i    [1  1    [0]    )      { 

r'r'ou''  lDi=l» 
1  =n  '^  p  D  1  n  t  ; 


> 


} 


} 


forlk=);<<'^-!xinctr;k  +  t)      { 

fo'"H=(t;i<iraxcutctr;i+  +  )     ( 

if(o1otinfkl==l     ii.    Plotout(il==l)     { 
a=  i  n  ( k 1  ; 
h  =  otJt  ( i  1  »' 
f or ( 1 =0; 1 <nhrDlot ; 1 ++)     { 

i  f  (  1  inktbl  (11  (0] =  =  a)     ( 
inx  =  l  inktbl  11  1  111  ; 
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661 

662 

663 

66« 

665 

666 

667 

668 

669 

670 

671 

672 

675 

67a 

675 

676 

677 

678 

679 

680 

681 

682 

683 

68« 

665 

686 

687 

688 

689 

690 

691 

692 

693 

690 

695 

696 

697 

698 

699 

700 

701 

702 

703 

70« 

705 

70b 

707 

70b 

700 

710 

711 

712 

713 

7ia 

715 

716 

717 

718 

719 

720 


iny  =  l  inktbl  [1]  (2]  ; 
1 =nh  ro 1 o t ; 


} 


} 

for(m  =  0;m<nbrolot»'n  +  *)  ( 

i  f  (  1  inlctbl  iTl   101  ==b)     < 

ou»-x=l  inlttnl  Im]   [1]  ; 

outy=l inKtbl (m) [2) i 

m  =  nbrDl ot  » 
\ 

1 ines(inx»  inv,outx,outy); 


> 


} 


kt  P  +  +  ; 

content-  =  iotb'  Utr]  ; 

} 
return; 
) 


1 i  nes (xl»yl»x2»v2)     ( 

int     lnkca3e»Xfy» 

if(xl<=x2)      ( 

if(yl<=v2)     { 

if(x1=  =  x2)     1nlrcase  =  3; 
e'  se    { 

if(yl=  =  y2)     lnltcase  =  0; 
else    1 nkcase=y ; 
} 
) 
else    { 

if(xl==x2)  1nkcase=l; 
else  1  nkcase  =  5; 
> 
) 
else  i 

i  f  (yl<  =  y2)-  { 

if{vl==v2)  lnkcases2; 
?!?»=   )nk.c^S'*  =  7; 
) 

else  ln<c5SP-o; 
) 

c  ^  s  p    0  : 

somnt  (  X  1  t^i),y1  ,x?-20.y2); 

X  =  x  ?  -  2  ti : 

St*'J'''it(x-'J,v-'J»x»y)/ 
^ecTnr(x-'J,y*UfX,y); 
o  r  e  3  <  ; 
case    1  : 

«!en^nt(xl»yl-20,x2,y2*20); 

X  =  X  c  « 

y=y2*20; 

seoTPit  (x-'4fV*y»Xfy)  i 
SeOftot  (  X  ♦■'J,  y*0,  x,y)  ; 
break ; 
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721 
725 
723 
72« 
725 
72t> 
727 
728 
729 
750 
731 
732 
733 
73« 
735 
736 
737 
758 
739 

7ao 

Til 
7u2 
7ii3 
7a« 
7a5 
7a6 
747 

lie 
7a9 
750 
751 
752 
753 
754 
755 
756 
757 
758 
75« 
7b0 
761 
76? 
7o3 
76J 
7bS 
7ho 
7^7 
7o« 
769 
770 
771 
77? 
773 
77U 
775 
77b 
777 
778 
779 
730 


case  2: 

seT^nr ( x\'?0 ,y] ,x2+20,y2); 

« =  X  2  +  2  0  ; 

y  =  V  2  ; 

seoT>nt(x*'J»y-4,x,y); 

sea'nntlx  +  'J,yfy,x,y>; 

b  P  >?  3  •:  ; 
case  5 : 

seg'nnt(xl,yl+20,x2,y2-20); 

X  =  X  2 ; 

v=y2-20; 

seaTnt ( x-a, y-4, x,y  ) ; 

seo-nnt  (  X  ty,  y-'^  ,  K  ,  y  )  ; 

break; 
case  i4 : 

sea'T>nt(xlt2a,yi+2a,x2-2a,y2-2a); 

X  =  X  2  -  t  n  ; 

V  =  y 2» I  6; 

seTunt ( X, y-6»  x»v) J 

S  e  g -n  n  t  (  X  -  6  r  V  ,  X  ,  y  )  ; 

sea'"nt(x2-2a,y2-2a,x,y); 
break; 
case  5: 

seomnt  Cxlt2a,yl-2a,x2-2«,y2  +  2a); 

x=x2-i6; 

V  =  v2  +  1 o ; 

secT-it  (xry  +  b»XfV); 

seo.T->t  (x-6#  V  ,  x,y)  ; 

seg'-.nt(x2-2'J,v2*24,x,y); 

break ; 
case  6: 

s»TntCxl-2a,yl-?a,x?  +  2'J.y2  +  2a); 

x  =  x2+  16; 

y=y2+16; 

sea'nnt(x»y  +  6fX,y); 

sea'nnt  (x+-b»y,  x,y)  i 

seoTfif  (T2*2'J»v2  +  2'4/x,y); 

b  r p-jk  ; 
c^S"?  7  : 

sea-rnr(xl-?4,vl+2'J,y2  +  2«,y2-2'J); 

x  =  x2*  le; 

y=y2- 16; 

«p;t.  ntix,v-6,x,y); 

seT"'^t.'x+»>y#x»y)J 

so---,'-(x?  +  2i,v2-2'-i,x,y); 

b  rer>ii.  ; 


re  Turn] 
) 


sel ec t  (  )   < 
i  n  r  i  »  r  ; 

C^sr  v; 

s  c  o  c  e  ( 2  ) ; 

orint  f  ("♦**->THt:Rc  isg  ^  VERSIONS  TO  THIS  GRAPHICS  f'ACKAGE  \n"); 
rrinrf("       HLtASe  SELECl  OME  OF  THE  FOLLOk'.ING  VLHSIONS:  \n"); 
aoa  i  n  :  soace (2 )  ; 

Drintf("        VERSION  1  ...  PETRI-NET  PACKAGE  TYPE  1  \n"); 
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781 
782 
783 
78« 
7  35 
786 
787 
788 
789 
790 
791 
792 
793 
79a 

7  9-5 
796 
797 
798 
799 
800 
801 
802 
603 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
81" 
815 
816 
817 
818 
819 
820 
821 
822 
823 
82« 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
857 
838 
839 
8a0 


or  1  n 
cri  n 
n  = 
twice: 
DP  i  n 
n  +  +  ; 
i  = 
whi  1 


} 


t  M" 
tf  (" 

o; 

s  p  a  c  e  C  2  )  ; 

tf  ("♦*♦->•' ); 


VESSIG.Ni  2 
VtRSION  3 


PACKET  REPPtSENTaTION 
MULTIROUTING  PACKAGE  , 


TYPE  2  \n"); 
TYPE  3  \n"}; 


=  o; 


e  ( ( v=qet char (  )  ) 
vOuf  111  =  V ; 

i  +  +  ; 


\n')  { 


vbuf  (n  =  '\o' ; 


i  =  o; 

whi 1e( 

V 

i  f 


vbufCi]  :=  '\0')   { 
=  vPu^  [  i ] ; 
tn==l)  { 

Switcn(v)  < 
case  • I ': 
vers  =  1 » 
break ; 
case  '?': 
vers  =  2/ 
break ; 
case  '3': 
vers  =  3; 
break ; 
default: 
print  f 

("*«*-> i ncorrec t  version  try  againJ"); 
qoto  aqain; 
break; 
} 
i  ♦♦; 


el 


se  { 


switch(v)  { 
case  '0': 

set  =  o; 

break; 
ca<;e  '1': 

set  =  i; 

break; 
case  ' 2  '  : 

set  =  2; 

fie* au^  r  : 
or } nt  f 

("***->Tncorr<»ct  genisco  set  try  aaain"); 
or  i  n t  f 

("      set  selection  s^oulo  he  0,l,c>r2"); 
n  =  i; 
Clot  0  f  -< '  ce; 
break  ; 
} 

i  +>; 


if(n  =  =n  { 

soace (2 ) ; 
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8ai 
8U2 

8a3 

8a5 

846 
847 
848 
849 
850 
851 
852 
853 
8S4 
855 
856 
857 
858 
859 
860 
861 
862 
863 
86a 
865 
866 
867 
668 
869 
870 
871 
872 
873 
87a 
875 
876 
877 
878 
879 
880 
861 
882 
883 
884 
flPS 
P86 
8P7 
888 
889 
8O0 
RPl 
892 
893 
894 
R95 
896 
897 
898 
899 
900 


orint  f  ("***->r.'0«  SELECT  THE  GENISCO  SET  YCU  wISH  Xn"); 


p  r  i  n  t  f  (  " 
o  r  i  n  t  f  (  " 
•30 to  twicel 


THE  PROGRAM  TO  BE  DISPLAYED  TO \n"); 

I.-i  CI    LAR  EITHER  SETO,  SETl  Ok  SET2  Nn"); 


return ; 
> 


i  mark ( )  { 

/*  Tarks  initial  state  of  systeir  by  calling  aooroDriate  function  */ 
int  o »co 1  our » e» g» X » y ; 

bol  =  f i 1  el  ; 
df 1 tcol or=3; 
COlorCofltcolor); 
col ou  r  =  2 ; 
Ctroverf1ow=0» 

while  (  (a=(DDl ->na'rsot  r)  )  1=0)  { 
i  U (b  =  (ocl->rlot  )  )  1=0)  < 
switcH(vers)   ( 
case  I : 

iversH); 
H  peak  f 
case  2: 

ivers2(colour); 
break? 
case  5: 

ivers3(co>our); 
break ; 


if(dfltcolbrl=3)  co1or(3); 
Dcl +♦ ; 


} 


c  o  1  o  r  (  1  4  )  ; 

orintgCO, 350., 4H0., "TIME  FRAME  =  1"); 

oreread ( 1 ) J 

hi  1 i  te  ( ) ; 

di  splaO  ; 

hoM(  ); 

reset (1 ) » 

C  C  1  O  r  (  1  5  )  ; 

o  V  r  f  1  o  w  (  )  ; 

rrinr  1(0,  550., ^BC, "TIME  FRAME  =  1"  ) ; 
return; 
) 


holrfO      { 

int     i  ; 

t  i  r' e  :  s  o  3  c  e  (  2 )  » 

print  t  (''♦♦*->THlS     IS     THE     T'-'ITIAL    STATE    OF     1  H£    ,\tTir.URK 
prinrfC  E  M  F '^     ThF     TI^'T'^'G    ^U.n)E    FOR    E^ECUTIU^     .... 

printfC"  '0'     FO"     ru    DtLArb     ..'1'     FOh?    rRA^E    PAUSES 

nrintfC "*♦*->"); 

i    =   o; 

whi  le(  (t  i  ■nin3  =  3etchar  ( )  )     1=     '\n')     i 
thuffil     =    tiiiino; 


\n"); 
\n-); 
\n"); 
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901 

902 

903 

90y 

905 

906 

907 

908 

909 

910 

911 

912 

913 

91« 

915 

916 

917 

918 

910 

Q20 

921 

922 

923 

92y 

925 

926 

927 

928 

929 

9  30 

931 

932 

933 

93a 

935 

936 

937 

938 

939 

9ao 

9ai 

9a2 

Qli'K 
9u-'l 

9a5 
9ao 

9/J7 
9iid 
9U9 
950 
951 
952 
953 
<35u 
955 
956 
957 
958 
959 
9b0 


pet 
} 


\  ve 


1  t* ; 


tbuf[il  =  '\o*; 

i  =  0; 

whi  le(tr!uf  [i  )  1=  '\0')       ( 
timina  ~     tt\ji  li)  7 

i  +♦; 
) 

if(timing:  =  '0'  \&  tirnina!  =  'l')  { 

or i n r f ("***->< nco rrec t  version  try  aoainl"); 

aot o  t  i  Tie; 
> 
urn; 


rslO   < 
inr  e  t  X  ry  f  zi 

char  check; 


(lr-Dl->'naricer); 
(  h  D  1  -  >  x  C  O  r  rj )  ; 

(ro)  ->vcor'3) ; 

(t'ol  ->n3nenr  r1  ? 

(  (checl(=na'T.es  [z  +  n  )  :  =  ' I  •  &I4  (chec  i<  =naTes  (2  + IJ  )  1  =  *  0  '  )  { 
orintT(0,«-3.'l,5ll.-Cy-3),"%rt",e); 


y- 
i  f 

) 

el 


se  { 

i*(cfieci<:nam^s[2  +  l)=='I')  Drintq(0,x-14.0,5ll.-(v+2)»"%d' 
else  printg(o,x-ia.0,511.-(v-<'),"%c)"»e); 


e) 


ret 
) 


} 

urni 


i  ver s2 (co 1  our )   { 
»nt  e  t  X  r  y  f  zi 
char  chec  ^ i 


e- 

x  - 

y- 
7- 
i  f 

} 

el 


(nnl->'»arifpr); 
(bcl->xcorrj); 
(bnl  ->vCor-i)  ; 
(  br>  1  ->n  aT9ot  r  )  ; 

{  (c^eck=r3-os  f  2+ 11  )  1  =  '  I  '  .<i  (cHeck=names  tz  +  ll  )  i  = '0' )  < 
o  c  K  t  2  (  x  »  y  .  e  f  r  0  1  o  u  r  J  ; 

se  < 

i'(c-'»C«'  =  '-=*''"S[7-^1l=='l'  )  Drintj(f',x-l't.0,'^1l.-(y*2)» 
else  or  i  -^t  -,  (  0  ,  «  -  l  -i .  n  ,  s  1  1  .  -  (  v->^  J  ,  "'/.'j"  ,  e  )  ; 


J  "  »  e  )  ; 


ret 


•rs3(rolour)        < 
c^ar       l<eeo»  *  kot  r  ; 
int    a»aa>b»Do»c»cc»c1rlfirecil  »i»k,n, stack, total»x,y; 

total =0; 
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<961 

962 

963 

96« 

965 

966 

967 

968 

969 

970 

971 

972 

975 

97U 

975 

976 

977 

978 

979 

980 

981 

982 

983 

98a 

985 

086 

987 

988 

989 

990 

991 

992 

993 

99U 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

100« 

1005 

lOOo 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

101« 

1015 

lOlo 

1017 

1018 

1019 

1020 


n  =  i; 

x=(bol->xcord); 
v={do1  ->ycor'3)  ; 
a= (bol -> I enqt  h ) ; 
b=(bol->naTieDtr)  ; 
c= (bo  1 ->Tar ker ) ; 
t  ot  a^  =t  ot  at  +c  ; 

if(c>0)       ( 

for(i=0;i<.c;i+  +  )        i 

kotr    =    ^naTies  (b  +  a-2}  ; 
keeo    =    *kotP» 
c  1  f  In]  =at  oi  (Stkeeo) ! 
n*  t ; 


} 


} 


kDt  r    =    &n^T<es  (b  +  aJ  ; 

keep    =    *  <3t  p ; 

St ac  k  =  at oi (S<eeD) ; 

i  f (names  [b  +  (a-l  )1  1  =  '0' )     ( 

if(na'nes[r>+(a-l))==*2')   3tack  =  stackt20; 

else   stack  =  stack  ♦  10; 
) 

f OP { i =0 ; i <st ack-1 ; i ♦♦)   ( 
boi f+; 

aa= ( bol -> 1 enqt  H ) ; 
bo=(bol->na'"eDtp); 
cc=(DDl->(T>arker); 
tot  al =tot  al tec; 
if(cc>0)   { 

fOr(k=0;k<cc;k*+)    < 

<prr  =  inames  (bb taa-2] ; 
keec  =  ♦ kpt  r; 
c 1 p In) =atoi (ikeeo) ; 
n  +  +  ; 
} 


> 


> 


O')  { 


1  f  (names  [p+1  ]  1  =  '  I  '  &S  na-nesEb  +  ll 
ockt3 

(x»v, total, clp(l)  ,clpl21  ,c1p(3],c1p(^1  ,c1p{5)  ,clrlt)l  ,c1p17]  , 
col oup ) ; 
} 
else  <  • 

iftna-nesfn  +  llrx'I')  PPinto(l),«-iy.0,511.-(y  +  2),"Xd"»total); 
else  DPint. T(0,x-ia.O, 511. -(y-«)r"%H", total); 
} 
ppt  uPn ; 
> 


pp'»pea1(^a^ 


■ea  i(  f  1  aT)       { 

int    Due  net  I  2)  , count » f 
if(flao::^)     < 
i  f (f laq  =  =  l  )        { 

fd    =    ooen    (fbiif,    0); 
if     (fri<  =  0)     i 


<n,fa,i»ntPtPns; 
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1021 
1022 
1023 
1021 
1025 
102b 
1027 
1023 
1029 
1030 
1031 
1032 
1033 
103^ 
1055 
1056 
1037 
1038 
1039 
loao 
loai 
10«2 
1015 
lOaa 
1015 

1016 
1017 
1018 
1019 
1050 
1051 
1052 
1055 
1051 
1055 
1056 
1057 
105B 
1059 
1060 
1061 
1062 
1065 
1  061 
1  065 
1  066 
1067 
1  06!? 
1069 
1070 
1071 
1072 
1075 
1071 
1075 
107e3 
1077 
1078 
1079 
1080 


orintf("***->error  occurred  in  ocening  fd  file"); 

> 

f dfbuf =f d; 

f q  =  ooen  (ahuf  »  0 ) ; 

If  (♦q<=0)  { 

Drint*("***->error  occurred  in  ocenina  fq  file")? 

> 

f dqbuf =f g; 
> 
i f ( (count=read  (fdfnuff  bucket*  2))1=2)  < 

print f("*«*->error  occurred  in  fo  bucket  read"); 
) 
i f ( (count =read  (fd^ouf*  bu f fer »( i event s*2 ))) 1 =( i event s *2) )  < 

Drintf("***->«»rror  occurreo  in  buffer  read")? 
) 
i f ( (count =reaa  (fdoDuff  buc<et»  2))i=2)  < 

or i nt * ( " * ♦ *->er ror  occurred  in  fa  bucket  read")? 
} 
i  f  (  (count  ^rear'  (fdaoufr  en  t  r  1  ,  2  )  )  I  =2)  < 

or i nt f ( " ♦* *->er ror  occurred  in  cntrl  read"); 
) 
i  f (cntrl  [01=  =  0)  { 

space(2)  ; 

orintf("***->trie  last  net«Jork  state  nas  been  achieved"); 

kthfra'T'e=fraiT>es*l; 

soace (2 ) ; 
} 
else  { 

i f ( (count=read  (fdabuff  bucket*  2))!=?)  { 

or  1 nt f ( " *** ->er ror  occurred  in  bucket  read"); 

) 

nhrfrns  =  cntrl  [O]  •2* 

1  *((  count  =  reao  (f'iaruf/  f  i  r  i  ng,  nb  r  t  rns  )  )  1  =  nbrtrns)  { 
or i nt f ( " *» *->er ror  occurred  in  firina  read"); 

> 
} 


> 

else  ( 
cl ose(f dfbuf  ) ; 
c1ose(fdgbuf ); 
} 
return; 
> 


i  H  r  e  ( )  < 

inr  q,  i  ,   in  [?'d)  ,  intol  »  )  t  <  t   1  »T,maxinctr,naxoutct  r»n,out  (25)  » 
outtr>l  tD  r  n]  ot   in  [£'^1  ,olctout  (251  /  inx,  iry,(;uf'«»outv; 

t  account  =0 ; 
for(i=C';i<cntrl(Ol;i+  +  )  < 

ho?=f  i  1^2; 

f  O  r  (  j  =  0  ;  i  <  f  i  r  i  n  a  (  i  1  -  1  ;  i  t  +  )   { 
br2-»-  +  ; 

y 

inftl  =  (r-o?->inr  rn)  ; 
outtol  =  (t:'c2->?uttrn)  ; 
■Taxincrr=iotril  (inthlj  ; 
for(k  =  0;  l;<Tiaxinctr;k+*)      { 
i  ntb 1 ♦♦; 
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1081 
1082 
1083 

losa 

1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
109« 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1  loa 
1  105 
1  106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 

iiiy 

1115 
1  1  16 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1  12J 
1  125 
1  12-5 
1  127 
1  126 
1  129 
1  150 
1  151 
1  152 
1153 
1  13a 
1)35 
1136 
1137 
1138 
1139 

1  lao 


intKlsiotbMintbl]; 
} 

'■naxoutctr  =  iotbl  (outtbil; 
for(l=0;l<maxoutctr;l++)     { 

out  thi +♦; 

out  [1 1  =  i otpi  [out tb-n  ; 
) 

f  or  (o  =  0  ;  D<''iax  i  nc  t  r  ;  D  +  *  )  < 
Dlotin(o]=0; 
*or { 1 =0; 1 <nbPDl ot ; 1 ♦♦)  { 

i  f (in  (ol ==1  inktbl  [11  (01  )  { 
DlotinlD)=l; 
1 =nbpp lot; 


} 


} 


> 


f  or  (o  =  0  ;  D<ntiaxout  c  t  r ;  D  ♦•+ )     < 
ol otout  (d1 =o; 
tor ( 1 =0; 1 <nbrDt ot ; 1 +*)     { 

i  f (out  (d) ==1  inktbl  [1  I  [01)     { 
ol ot  out  [ol =  1  ; 
)  =  n  b  r  p  1  o  t  ; 
> 


) 

r(< 

f 


=  a ;  < 

or  (g 
i 


<'n  a  X 

=  0;q 

f  (ol 

f 


1  nc  t  r  ;  k  tf  )     ( 

<'n3xoutct  r;g  +  +  )     { 

otinUJ==l     8,4     plotout  fq]  ==1  )     { 

or(r  =  v);7i<nbrolot»'n++')     { 

if (1 inktbl  [m]  (0) ==in  [k]  )     < 
inxsl  inktbl  [ml  [11  ; 
iny=l  inictbl  [ni]   (21  » 
msnbrpl ot ; 
> 

or Cn=0 ; n<nbrol ot ; n*+)  { 

i+dinictbl  (nl  [0J=  =  out(g)){ 

out  x  =  l  i  nktol  [nl  1 1 1  ; 

out  v= I i  n« t b1  In)  12]  i 

nrnorolot; 
> 

o 1 o  r  (1  1  )  ; 

i'i  =  ?(  IPX/  i'^v,nu*"x»outv)  ; 
i  *.  St.-""?  (tf.  r^count)=ir,x; 
i  r^  «  t  ot'f'   (  r  ,^  I  c  O  u  n  t  )  =  i  n  y  ; 
ou»  s^crp  (ra^rounrl  =oijtx; 
Cur  St  or  p   Irrir  cou'^tl  =0utv; 
v^  •~  C  o  u  n  t  +  ♦  ; 


P9t  urn  1 


Inkrvt (  )  ( 

int  i»inx»inv,outXfOuty» 
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1  1'4  1 
lia2 
na3 
1  i«y 
11^5 
1  ia6 
lia7 
1  ia8 
1 1«9 
1150 
1151 
1152 
1155 
iisy 
1  155 
1156 
1157 
1158 
1  159 
1  160 
1  161 
1162 
1163 

1 16a 

1165 
1  166 
1167 
1  168 
1169 
1170 
1171 
1172 
1173 
117^ 
1175 
1176 
1177 
1178 
1179 
1  180 
1181 
1182 
1183 
118-4 
UPS 

1  1B«5 

11H7 
1  IHb 
1  1H9 
1  too 
1191 
1192 
1193 
1  19« 
1195 
1  19fc 
1197 
1  198 
1  199 
1200 


col  or ( 1 y ) ; 
for(i=a;i<tabcount;i+t)  < 

inx=  xinstoreli]; 

iny=  v'nsfopeli); 

outx=  xou r s t ore  ( i ]  ; 

outv=  vout'itoreti]; 

1 ines(inx,inv,outx,outy); 
} 


return; 
} 


St  ^ae (  ) 
i  f 


{ 


(kth  f  rame:=0 
orereao(2)  ; 

i  f(kt'itraT»:  =  *P3n^es<-l  ) 
hi  H  te(  )  ; 
i  f  (t imina  =  5' 1  * )  { 
d  i  s  p  1  a  ( )  ; 
oause ( 1 ) ; 


i*.  kt  h  f  rame<f  rames  +  1 )  < 


} 


} 


return; 


markingC)  { 

/*  function  liisolavs  Successive 
int  CO  1  our  r  drai* ,  i  f  mark  »  n,  X  »  y  ; 


iterations  of  the  network  */ 


bol 
n  = 


f  i  1  e  1  ; 


2; 


/*  folIovKina  1  ooo  orocesses  ievent  «  data  segoients  each  pass  */ 
for(kthfraTe  =  0;kthfracie<fpa(nes;kthframe  +  +  )  ( 
st  age  ( )  : 

i  f ( kt  h  f  rame>0)  { 
reset () ; 
Color(13); 
c  V  p  f  1  c  w  M  : 

or  i  ntoi  .^,  3Si'.  ,  ^''0.  ,  "T  I-E  hWA'^E  =  %a"fn); 
n  +  +  ; 

) 

'IP 3 v.    =     I  '  r  1  -  >u>  1  or  )  ; 
■f  *  1  •■  c '?  1  '^  p  -  3  / 
cnlo''     ("i'lrcolopW 
coin  J  p  =  ? ; 
ct  pov«»pf  1  ri-i  =  '); 

foP  (i=0;  i  <  ievpnts;  i+*)   < 
if  (ip/^w  ==  1)  { 
i  C  t  p  -  i  ; 
swirch  Cveps)    < 
Crtse  1 : 

v/er s  1  ( ) ; 
nreak ; 
case    2: 
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1201 

1202 

1203 

120a 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

121« 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

I22a 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123a 

1235 

1236 

1237 

1238 

1239 

12<40 

12^1 

12a2 

I2a3 

12ya 

12a5 

1206 

12^7 
12afl 
12'19 
125U 
1251 
1252 
1253 
12SJ 
1255 
125^ 
1257 
1258 
1259 
1260 


vers2(co1 our) ; 
break; 
case  3: 

vers3(coloup)» 
break; 
> 
} 

i  =  1  C  t  r  ♦  ■♦■ ; 

i  f (af 1 tcol or;=3)  co1or(3) ; 
bDl+t; 

araw  =  (rd 1  ->  plot); 
> 

df 1 tcolor=iy; 
colop(ciMtcolor); 
en  1 our= 1 3; 

Drinta(0,550.,48o.,  "  T  T-iF  rRA^'e 
i f ( t i mi no== ' 1 ' 1  oause(2); 
I nkPvt (  )  ; 
bol  =  f  i lei ; 


Xd",n); 


} 


pperead ( 3 ) ; 
return; 


ovrflowC)     { 

i  nt     i  »  X , V ; 


isO; 


=  0)     < 


wHile(overtlowtb)  lil  [01 

x^os/er  f  1  owf  b1  ( i  1  (01 

v  =  ove'*t1owtb)  (i)  Tl) 

M(x>250)     { 

p1oc<( ( x  +  3«) «1  .,51  1 

} 

else    { 

block(fx-5  0)M.,511.-(yH0)M., 

) 

overtlowt.bl  ti  )  tOl  =0; 

overf 1 owtbl  Ci ]  tl ) =0; 

i  tt; 
} 


(y*10)*l.,(x+5a)*l.,511.-y*l.) 


(x-35)*l./511.-y*l.); 


pe t  ufn  f 
} 


v/e PS  1  (  ) 

i  nt 


e»  X , V , ;  , 

Chap    check; 

e=bu  f  f  ep  f  i  c  t  pJ  ; 

X  =  (bo  J -> "CTPi )  ; 

y  =  ( ho  1  ->  vc C'pfl )  ; 

2=Cr>ol->naTef>tP); 

i  f  (  f  rhec<=".=^'ps  [?  + 1  n  :  =  '  I  •     8..<     (c  hec  i<=natres  [?  +  1 )  )  1  =  '  0  '  )     < 

QPini:3(0,«-5.u,511.-(y-3),"2d",e); 
) 
else    ( 

iffcheck=na'^'»sCz*ll=='I')    DPintq(0,x-la.0,5ll.-(yt2),"%d'',e); 
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1261 
1262 
1263 
126a 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
127U 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1232 
1283 
128a 
1285 
1286 
1287 
1283 
1289 
1290 
1291 
1292 
1293 
129a 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
130a 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
13ia 
1315 
1316 
1317 
1318 
1319 
1320 


else  DPinta(0,x-iy.0,5ll.-(v-9),"r.d",e); 


return; 


vers2(colour)   { 

int     Tiaric ,  X  ,  Y  ,  z! 
Char    check; 


bol ->xcord) r 

bD  1  ->vcord) ; 

bD  1  ->na:nept  r ) ; 

le=buf  ter  ( i  c  C  p1  ; 

(chpck  =  names  tz  +  l]  )  1  =  '  I  ' 

kt2(x»y»'nark»colour); 


&&     (check=names[z+lJ )1='0')     { 


x  =  ( 
v=( 
z=( 
mar 
i  f  ( 
PC 
> 

els 

i  f 

el 

} 

re t  urn; 

> 


vers3(colour)   { 

int  a»aa»b»nb»'nark,(rarks»c1r[firedl>j»k,n, stack, totalfX/Vf 
char  keeo»  *kDt  r ; 


e  { 

( (check=names  [z  +  lJ)=='I')  Drintq(0,x-ia. 0,511 
se  Drinta(0,x-ia.O,5ll.-(y-9),"Xd",iTiark); 


(/+2),"%d",mapk); 


to 

ns 

X  = 

y  = 
a  = 

b  = 
ma 

to 
i  f 


tal=0; 

1 ;  -  - 

(bot ->xcord) ; 
(bol ->ycord) ; 
(bol ->1 enath ) ; 
(bol  ->n3-neDt  r )  ; 
rk=buf  f er  (ict r)  ; 
t al =t  ot  a  1 tmark; 
(mark>0)   { 

for(j"=0;j<Tiark;j+  +  )   ( 

kotr    =    Rna-ies  tbta-2]  » 

keeo    -    *kptr; 

c I r  (n) =at oi (&keep) ; 

} 


) 


kct  r  =  Sna'Tes  [b  +  a)  i 
k eep  =  ♦kDt  r ; 
stack  =  at  oi  (likeeo) » 

i  f (names  [b+{a-l)1  I  =  '0'  )  ( 

if(nd-neslD+(a-l)l=='l')   stack  =  stack  +  10; 

else  ( 

if(names(b+(a-l)]=='2')   stack=stack+20; 
else   stack  =  stack  +  30; 

> 
) 
for(j=o;j<st3ck-l;jt*)   { 

tool**', 

i  c  t  r  1 1 ; 
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1321 

1322 

1523 

132^ 

1325 

132b 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

133a 

1335 

1336 

1337 

1338 

1339 

i3ao 

I3ai 

13i»2 

13«3 

13«« 

13U5 

13^6 

13a7 

13a« 

13U9 

1350 

1351 

1352 

1353 

1  354 

1355 

135b 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

I  36« 

1  365 

1  566 

1367 

136H 

1569 

137  0 

137  1 

1572 

1575 

1  57'4 

1375 

1  37o 

1577 

1578 

1579 

1380 


aa=( ho l->length); 
bb=(Dol->n3meDtP); 
marks=oufferfictrl ; 
total =total +markSf 
i  f  (n^ar<s>0)   { 

^or  (  K.  =  0;  konarks  ;  k  +  t)    { 

krtr  =  &names Cbb+aa-21 ; 

kpeo  =  *  kot  r ; 

c1r(n)=atoi  if.keep)  i 

n  +  +  ; 


} 


) 


} 


f (names  (btl)  :  =  •  I  •  &&  names  [b  + 11  1  =  ' 0 ' )  { 
pckt5 

(x.v. total, c1r(n,clr[2),clr(3),clr[a],clr[5],clr[6J,clpt7], 
colour); 

Ise  ( 
CO  1  or (3) ; 

if(names(b  +  ll=='l')  orintaCO,  x-ia.O, 511. -(y  +  2),''%d",  total); 
else  ppi nt3(0,K-ia.O, 51 l.-(v-9),"Xd", total); 


> 
ret  urr 
> 


DC K t 2 ( X  ax i s , vax i s , po i nt , c 1  ass  )  < 


SW1  t 

ca 

b 
ca 

b 
b 

ca 
b 
b 
b 

ca 

0 

b 

b 

b 

ca 

r. 
b 
D 
0 

h 
ca 
b 
n 
b 
o 

D 

b 
ca 

b 
b 


Ch (ooi 
se  0 
reak 
se  1 

1  oc  < 
reak 
se  2 

1  oc  k 
1  OCk 
rea< 
se  3 
lock 
lock 

1  OCk 

reaK 
se  a 
1  oc  < 
lock 
1  oc  < 

1  OCk 

reak 
se  5 
1  OCk 

1  OC  K 
1  OCX 
lock 

I  oc  n 
rea< 
se    n 

1  OCX 
lock 


nt  )     { 


(xaxis-3)*l.,5Il.-(vaxis+3)*l.,(xaxis*3)*l.,5ll.-(yaxis-3)*l.); 


X  ax  1 

X  ax  i 


X  a  X  1 
xax  i 
X  a«  i 


X  ax  1 
X  a  X  i 
X  a  <  i 
X  ax  i 


X  ax  1 
X  3  X  i 
X  a  X  i 
X  ax  i 
X  a  X  i 


X  ax  1 
X  ax  i 


s-3)*l 
s-3)*l 


s-3) *\ 
s-3)*l 
s-5)*l 


<5-5)*  t 
s  -  5  I  ♦  I 
s-5)* 1 
?  +  7)*  1 


,511  .■ 
,511.' 


,511. 
,511  . 
,511. 


,51  1  . 
,511. 
,511. 

,511. 


(vaxis+5)*l.,(xaxis+5)*l.,511.-(yaxi5-3)*l.); 
(yaxis-7)*l.,(xaxis+3)*l.,511.-(yaxis-13)*l.); 


(ya«is  +  3)*l  .,  (xaxis-t-3)*l  .,51  1  .-(yaxis-5)*l  .); 
(yaxis-7)«l.,(xaxis+3)*l.,511.-(yaxis-13)*l.); 
(yaxis'H5)*l.,(xaxis  +  3)*l.,511.-(yaxis  +  7)«l.); 


•(yaxts+3)*l.,(xaxis+3)*l.,5ll.-(yaxis-5)*l.); 
xax  i  s+5)  *  1  .  ,5 


■Cvaxis+ri)*l 
•(vaxis*3)*l.,( 


•(vaxis-7)*l.,(xaxis+5)*l.,5ll.-(yaxis-15)*l.); 
., (xaxi  st5) «1  .,51  1  .-('  — >  ■  ■     ^  - 


(xaxist5)«l.,5ll.-(yaxis+7)*l.); 
xaxis*15)*l.,5ll.-(yaxis-5)*l.); 


s-3)*  1  . 

^-51*1. 
s-j)*l  . 
sW)  *  1  . 
s-1 3)  ♦! 


s-3)  M  . 
s-5) *  1 . 


,51  1  . 

,si  1  . 
,511. 
,511. 
..51  1 


,511. 
,511. 


•(yaxis*3)*l., fxaxis  +  3)*l .,51 l.-(yaxis-3)*l  .); 

•Cvaxis-7)*1.,(xaxis+3)*l.,511.-(yaxis-13)*l.); 
•(vaxis*l5)*l.,(xaxis+5)*l.,511.-(yaxis+7)*l.); 
■(yaxis+5)*l.,(xaxis+15)*l.,511.-(yaxis-3)*l.); 
,-(yaxis*i)»l.,(xaxis-7)*l.,511.-(yaxis-3)*l.); 


•(yaxis+3)*l.,(xaxis+3)*l.,511.-(yaxis-5)*l.); 
(yaxis-7')*l.,(xaxis  +  5)»l.,511.-(yaxis-15)*l.); 
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1381 
1582 
1383 
158a 
1585 
1386 
1387 
1386 
1569 
1390 
1391 
1392 
1393 
139a 
1395 
139b 
1397 
1398 
1399 

laoo 
laoi 
ia02 
1U03 
1  HOU 

ia05 

lUOb 

la07 
liJ08 
1^09 

mio 
lai  1 
iai2 
1«13 
iai« 
iai5 

lUlb 

iai7 
iai8 
iai9 
1^20 
ia2i 
ia22 
1«23 

U25 
ia26 
1U27 
ia28 
1«29 
ia30 
1«31 
lu32 
ia33 
ia3a 
1«35 
l«3o 
ia37 
ia38 
1^39 

ia«o 


hi 
b1 
Dl 
Ol 
br 
cas 

Dl 

ol 
bl 
bl 
bl 
bl 
bl 
bp 
aef 
ov 
ov 
ct 
bl 
bl 
bl 
bl 
bl 
bl 

Dl 
CO 

df 
i  f 

> 

el 


oc  k 
OC  k 
OC  k 
oc  k 
eak 
e  7 

OCK 

OC  k 
ock 
OC  k 
OC  k 
ock 
OC  k 
eak 
au  1 
epf 
epf 

POV 

ock 
OC  k 
oc  k 
ock 
ock 
ock 
ock 

1  OP 
1  t  CO 

(  xax 
P 

se  ( 

p 
> 

bpeak; 


(x3xis-5)*l.,511. 
(xaxtst7)*l.,Sll. 
(xaxi  s-13) *  1  .,51  1 
(xaxis-15)*l.,5ll 


(xaxi  s-5) *  I  .  ,51  1  .• 
(xaxi  s-3)*l .,51  1  •■ 
(xaxi  s-5) *1 .,51  1  •■ 
(xaxis't-7)*l.,511.' 
(xaxi  s-li) *1  .,51  1 
(xaxis-1 3)*1 .,511 
(xaxi  s  +  7)*l  .,511  .■ 


(vaxis*-15)*l. 
(vaxis't-5)*l., 
-(vaxis+5)*l. 
-(y3xis+15)*l 


( vax  i  s  +  5)  *  1  . , 
(yaxis-7)*l., 
(yaxis+15)*l. 
(yaxis+5)*l., 
-( yax 1 s  +  5) *  1 . 
-(yaxis+15)«l 
(yax  i  s  +  1  3)  ♦!  . 


, (xaxist5)*l  .,51  1 
(xaxis+15)*l  .,51  1 
, (xax 1 s-7)  *  1  . , 51  1 
.,(xaxis-7)*l.,51 


(xaxi  s  +  5)*l  .,51  1  . 
(xaxis-t-5)*l.,511. 
, (xaxi s  +  5)*l  .,511 
(xaxi  s  +  15)*l  .,51  1 
, (xaxi  s-7)*l  .,511 
. , (xax  i  s-7) *  1 . ,51 
, ( xaxi  s+l 5) *  1 . ,51 


owtrl (c t PO ve p ^ 1 ow ) 

owtbl (ctroverflowl 

r  i ] ot** : 

(xaxis-5)*l.,511.- 

(  xaxi  s-5)  *  1  .  ,.51  1  .- 

(xaxi s-5)* 1 .,51 1 .- 

(xaxist7)*I,,511.- 

( xaxi s-1 5) *1 .,51  1  . 

(xaxi?-l5)*l.,511. 

(xaxis  +  7)*l  .,51  1  .- 

class); 

I op=c lass; 

is>250)  ( 

Pi  nt 9(0, xax  i  stSfl.O 


(01 =xaxi  s; 
( 1 )  =  y  a  X  i  s ; 

(yaxis*-3)*l., 
(yaxis-7)«l., 
(yaxis+13)*l. 
(v3xis''-3)*l., 
-(y,ixis  +  5)*l. 
-(yaxis+l5)*l 
(y3xis>l3)*l. 


(xaxist-3)-*l  .,511. 
(xaxi  st3)*l.,51l. 
,(xaxis+5)*l.,511 
(xaxi  s  +  13)*l .,51 1 
, (xaxi3-7)*l .,51  1 
. , ( xax  i  s-7 ) *  1 . , 51 
,(xaxis+l3)*l.,51 


.-(yaxis+7)»l.); 
.-(yaxis-3)*l.); 
.-(yaxi5-5)*l.); 
l.-(yaxis+7)»l.); 


- (yax  i  s-5) »1  . ) ; 
-(yaxis-13)*l, 
.  - (yax 1 s  +  7  )  *  1  . 
.-(yaxis-3)*l. 
.-(yaxis-3)*l. 
1 .-(yaxi  s  +  7) *1  .) 
1 .-(yaxi  s  +  7)*l .) 


-(yax  i  s-3) *1  . ) ; 

-(yaxis-13)*l  ,); 

.-(yaxi  s  +  7)  »  1  . ) ; 

.-(yaxis-3)*l.)»; 

.-(yaxis-3)*l.); 

l.-(yaxis+7)*l.); 

l.-(yaxis+7)»l.); 


,511. -yaxi  s,''%d",point-7); 


p  int3(0,  xaxi  s-50. 0,51  I. -yaxi  s,"'4d",point-7); 


Pet  uPnl 
} 


PC  k  t  3 ( xax 

swi  tcfi  ( 

case  0: 

bpeak 

case  1 : 

col  OP 

ol  ock 

bPeak 

case  2: 

col  OP 

block 
col  OP 
d1  oc  k 
bpeak 
case  3: 

col  OP 

block 

col  OP 

block 


s,yaxis, total  ,cl,c2,c3,c'*,c5,c6,c7, class)   { 
otal)   { 

cl); 
(xaxis-3)*l.,511.-(yaxis+3)*l.,(xaxis+3)*l.,511.-(yaxis-3)*l.) 


cl); 

(xaxi s-3) *1., 511. -(yaxi s  +  3)*l.,( xaxi s  +  3)«l., 511. -(yaxi s-3) ♦!.); 

c2); 

Ixaxi s-3) *1., 511. -(yaxi s-7)»l., (xaxi s+5)*l., 511. -(yax is-l3)*l.); 


cl); 
(xaxis-3)*l.,511.-(yaxis+3)*l.r(xaxis+5)*l.,511.-(yaxis-3)*l.); 

c2); 

(x3xis-3)*l.,511.-(yaxis-7)*l.,(xaxis+3)*l.,511.-(vaxis-13)*l.); 
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l«aa  b1ocle((xaxis-5)*l,,511.-(yaxis  +  l3)«l.,Cxaxis  +  3)*l.,511. 

ia«3  breaW; 

laaa  case  a: 

ia«5  cotorCcl); 

ia<4b  bloc<((xaxis-3)*lw511.-(vaxis  +  3)*l.,(xaxis+-3)*l.,5H.- 

iau7  color(c2); 

iau8  Dlock((x3xis-3)*l.,5!l.-(yaxis-7)*l.,(xaxis+3)*l.,511.- 

iaa9  coior(c5); 

laSO  blocl<((xaxis-3)*l.,Sll.-(vaxis>13)*l.,(xaxis  +  3)*l.,5ll. 

laSl  color(c«); 

ia52  Dlocic((xaxist7)*l.,511.-(yaxis>3)*l.,(xaxis  +  13)*l.,5ll. 

ia53  break; 

lasa  case  5: 

lass  color(cl); 

laSfe  bloc'<:((xaxis-3)*l.,Sll.-(yaxis  +  3)*t.,(xaxis  +  3)*l.,511.- 

iaS7  colop(c2); 

iaS3  bloc<(Cxaxis-3)*l.,511.-(yaxis-7)*l.,(xaxi3+3)*l.,511.- 

laS'?  color(c3); 

1«60  b1ock((xaxis-3)*l.,.Sll.-(yaxis  +  l3)*l.,(xaxis  +  3)*l.,Sll. 

labl  colorCciJ); 

1«62  Dloc<((xaxis+7)*l.,511.-(yaxis+33*l./(xaxis+13)*l./511. 

lUb3  co1or(c5); 

mbt  b1ock((xaxis-15)*l.,511.-(yaxis+3)*l.,(xaxis-7)*l.,511. 

I«b5  break; 

lUbo  case  b: 

lUbl  colop(cl); 

\!ib&  block((xaxis-3)*l.,Sll.-(yaxis  +  3)*lw(xaxis  +  3)*l.,Sll.- 

ia69  co1or(c2); 

1«70  block(Cxaxis-3)*l.,Sll.-(yaxis-7)*l.,(xaxis+3)*l.,511.- 

1«71  color(c3); 

ia72  b1ock((x3xis-3)*l.,511.-(yaxis+13)*l.,(xaxis+3)*l.,511. 

ia73  coior(ca); 

ia7a  b1ock((xaxist7)*l.,5ll.-(yaxis^-3)*l.,(xaxis+13)*l.,511. 

ia75  colorCcS); 

1^76  D»ock((xaxis-13)*l.,5ll.-(yaxist3)*l.,(xaxis-7)*l.,Sll. 

ia77  color(c6); 

1^78  block((xaxis-l3)*l.,511.-(vaxis+13)*l.,(xaxis-7)*l.,5ll 

la79  break; 

1«80  case  7: 

1«81  co'orCcl ) ; 

ia82  block((xaxis-3)*l.,Sll.-(yaxi3+3)*l.,(xaxis+3)*l.,511.- 

ia83  color(c2); 

108«  block((xaxis-3)»l.,511.-(yaxis-7)*l,,(xaxis+3)*l.,Sll.- 

laSS  color(c3); 

1«86  block((xaxis-3)*l.,Sll.-(yaxis+l3)*l.,(xaxis+3)*l.,51l. 

ia87  color(ca); 

1«86  block((x3xis+7)*l.,Sll.-(yaxis+3)*l.»(xaxis+13)*l.,5ll. 

1«8<?  color(cS); 

ia90  block((xaxis-13)*l.,511.-(yaxist3)*l.,(xaxis-7)*l.,Sll. 

1^91  colop(c6); 

1^92  block((xaxi3-13)*l.,511.-(yaxis+13)*l.,{xaxis-7)»l.,Sll 

1093  colop(c7); 

\a9k  b1ock((xaxis+7)*l.,511.-(yaxis+13)*l.,(xaxis+13)*l.,511 

ia95  break; 

1U96  default: 

ia97  ovepflowtbl  (ct rovepf 1  owl  r01=xaxis; 

1 a98  ovepflowtbl  [c t povep f 1  owl  (ll=yaxis; 

1  U99  ct  rover f 1 ow  +  +  J 

150  0  colorCcl); 


-(yaxist7)*l.) 

(yax  i  s-3) *1 . ) 
Cyax  i  s-1 3} *  1 . 
-(yax  i  s  +  7)  *1 . 
-(yaxis-3)*l. 

(yaxi  s-3) *1 . ) 
(yax  i  s-1 3) *  1 , 
-(yaxis+7)*l. 
-(yaxi  s-3)  *  1  . 
-(yaxis-3)*l. 

(yaxi  s-3) ♦I  .  ) 
(yax  i  s-1  3) *1  . 
-(yax  i  st7)«l  . 
-(yax  i  s-3) *1 . 
-(yax  i  s-3)  »1  . 
.-(yaxi  s  +  7) *1 

(yax  i  s-3) *1 . ) 
(yaxis-15)*l. 
-(yax  i  s  +  7) *l . 
-(yaxi  s-3) *1 . 
-(yaxi  s-3)*  I . 
.-(yaxi  s-t-7)»l  .) 
.-(yaxi  s  +  7)*l . ) 
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1501 
1502 
1503 
150a 
1505 
150o 
1507 
1508 
1509 
1510 
151  1 
1512 
1513 
1511 
1515 
151fe 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
152a 
1525 
1526 
1527 
1526 
1529 
153C 
1531 
1532 
1533 
153« 
1535 
1536 
1537 
1538 
1539 
15^0 
15^1 
15a2 
15^3 
15«a 
15«5 
15^6 
15U7 
15a8 
15^9 
1550 
1551 
1552 
1553 
155« 
1555 
1556 
1557 
1558 
1559 
1560 


bloclf(()Oxis-5)*l.,511.-(y3xis  +  3)*l.,(xaxis  +  3)*1.,511.-(yaxis-3)*l.); 

color(c2); 

blocic{(xaxis-3)*l./511.-(vaxis-7)*l.,(xaxist3)*l.,511.-(yaxis-13)*l.); 

col  0  r (c  3 ) ; 

b)oc<((x3xis-3)»l.,511.-(yaxis+15)*l.,(xaxis+3)*l.,511.-(yaxis+7)*l.); 

col  or (c^  )  ; 

blocic((xaxis  +  7)*l.,511.-(vaxist3)*l.f(xaxis  +  15)*l.,5ll.-(yaxis-3)*l.); 

CO  1  Of (c5) ; 

c1oci<.((xaxis-13)*l.»511.-(yaxis  +  3)*l.,(xaxis-7)*l.,511.-(yaxis-3)*l.); 

col  or (co) ; 

block((xaxis-13)*l.,511.-(yaxis+13)»l.,(xaxis-7)*l.,511.-(yaxis+7)*l.); 

CO  1  or (c7) ; 

bloci<({xaxis  +  7)*l.,511.-(yaxis  +  l3)*l.,(xaxis  +  l3)*l.,511.-(yaxis  +  7)*l.); 

color(class); 

afltcolor=class; 

i f (xexi s>250)  < 

ori ntaCO, xax i 5+38.0, 51 l.-yaxiS/^Xd"* total -7); 
} 
else  < 

DPintg(0,xax 13-50.0, 511. -/axis»"Xd",total-7); 
) 
break ; 


} 
return; 
} 


reset (  )  { 

/*  reset  function  for  successive  network  iterations  */ 
int  i,'nark,x,y,r; 


if(vers==l  !!  vers==2)  { 

f or ( i =0; i <nbppl ot ; i ++)    ( 

c  o  1  o  r  ( 1  y )  ; 

X  =  I  i  n  k  t  b  1  C  i  1  ( 1 J  ; 

y=)inktb1  (i)  121; 

2=1 inktb)  [il  [5) ; 

if(z==0)  { 

blockf(x-3)*l.,511.-Cy-7)*l.,(x+3)*l.,5 
hlock((x-13)*l.,511.-(y+l3}*l.,(x+13)*l 


) 
> 
) 

else  < 


Ise  < 

bloc<((x-16)*l.,5ll.-(y-2)«l.,x*l.,511. 
blcck((x-l6)*l.,511.-(y+10)*l.,x*l.,511 


1  1  .- 
.,51 


-(y- 
.-(y 


(y-13) 
l.-(y- 


10)»1. 
+2)*1. 


*i.); 
3)*i.); 


or(i=u;i<tblctr-l;i++)  < 

o  1  o  r  ( I  a ) ; 

=  uni  quetbl  li )  tl) ; 

=  un  i  auet b 1  ( i )  12) ; 

=  un  i  auetol  [  i 1  13)  ; 

f(z==0)  < 

block((x-3)*l.,511.-(y-7)*l.,(x-f5)*l.,5 
block((x-13)*l.,511.-(y  +  l3)*l.,(xM3)*l 

Ise  ( 

block((x-16)*l.,511.-(y-2)*l.,x*l.,511. 
block((x-16)«l.,51l.-(ytl0)*l.,x*l.,511 


1  1  .- 
.,51 


-(y- 


Cy-13) 
l.-(y- 


10)*1. 
+2)*1. 


*i.); 
3)*i.); 
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1S61 
1562 

ISbQ 
1565 
1560 
1567 
15b8 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
157o 
1577 
1578 
1579 
1580 
1581 
1582 
1585 
158-4 
1585 
158o 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
159a 
1595 
159o 
1597 


> 


col 


tabO   { 
int  i  ; 


ret 
> 


i=l  1* 

1  odco 
1  odco 
)  odco 
1  odco 

1  03CO 

1  o  ^i  c  o 
1  odco 
1  odco 
)  odco 
1  o  d  c  o 
1  odco 
1  odco 
1  oaco 
1  odco 
1  odco 
1  odco 
urn» 


♦t, 15, 

++,0,1 
++,15, 
++,15, 
+♦, 12, 
++,5,5 
+♦,6,6 
++,5,3 
+  +  , t  0, 
++, 12, 
++,5,5 
++, 12, 
++,8,7 
++,5, a 
++,0,0 
++,6,0 


15,15); 

0,0); 

0,0) ; 

15,0); 

0,12); 

,12); 

,5); 

,3); 

6,10); 

5,5); 

,5); 

12,0); 

,3); 

,2); 

,6); 

,  0); 


/♦ 
/♦ 
/* 
/♦ 
/♦ 
/* 
/» 
/* 
/♦ 
/* 
/* 
/« 
/* 
/♦ 
/♦ 
/* 


CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 


or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 
or 


0 

1 

2 

3 

a 

5 

6 

7 

8 

9 

10 

11 

12 

13 

la 

15 


*/ 
»/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


EhD    OF    PROGRAM    LINKGRAPH.C 


/♦*♦♦***♦ 


******«**/ 
*********/ 


♦»*»**»*«********»*********************/ 
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